subseq>copy ( from to seq -- n copy )

Vocabulary

sequences.private

Inputs

from	an object
to	an object
seq	an object

Outputs

n	an object
copy	an object

Definition

USING: kernel math sequences ;

IN: sequences.private

: subseq>copy ( from to seq -- n copy )
    [ over - check-length swap ] dip 3dup nip new-sequence
    0 swap <copier> ; inline