move-unsafe ( to from seq -- )

Vocabulary

sequences.private

Inputs

to	an object
from	an object
seq	an object

Outputs

None

Definition

USING: kernel ;

IN: sequences.private

: move-unsafe ( to from seq -- )
    2over =
    [ 3drop ] [ [ nth-unsafe swap ] [ set-nth-unsafe ] bi ] if ;
    inline