open-slice ( shift from seq -- )

Vocabulary

sequences.private

Inputs

shift	an object
from	an object
seq	an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: sequences.private

: open-slice ( shift from seq -- )
    pick 0 =
    [ 3drop ] [
        [ ] [ nip length + ] [ 2nip ] 3tri
        [ [ length ] keep [ over - ] 2dip move-backward ] 2dip
        set-length
    ] if ;