take-sequence ( sequence-parser sequence -- obj/f )

Vocabulary

sequences.parser

Inputs

sequence-parser	a sequence-parser
sequence	a sequence

Outputs

obj/f

an object or f

Definition

USING: accessors kernel math sequences ;

IN: sequences.parser

:: take-sequence ( sequence-parser sequence -- obj/f )
    sequence-parser
    [ n>> dup sequence length + ] [ sequence>> ] bi <safe-slice>
    sequence sequence= [
        sequence sequence-parser [ sequence length + ] change-n
        drop
    ] [ f ] if ;