move-backward ( shift from to seq -- )

Vocabulary

sequences.private

Inputs

shift	an object
from	an object
to	an object
seq	an object

Outputs

None

Definition

USING: kernel math ;

IN: sequences.private

: move-backward ( shift from to seq -- )
    2over =
    [ 4drop ] [
        [ [ 2over + pick ] dip move-unsafe [ 1 + ] dip ] keep
        move-backward
    ] if ;