move-unsafe* ( to from seq -- from-nth )

Vocabulary

sequences.private

Inputs

to	an object
from	an object
seq	an object

Outputs

from-nth

an object

Definition

USING: kernel ;

IN: sequences.private

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