move-unsafe-of ( seq to from -- seq )

Vocabulary

sequences.extras.private

Inputs

seq	an object
to	an object
from	an object

Outputs

seq

an object

Definition

USING: kernel ;

IN: sequences.extras.private

: move-unsafe-of ( seq to from -- seq )
    2dup =
    [ 2drop ] [ overd nth-unsafe-of set-nth-unsafe-of ] if ;
    inline