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


Vocabulary
sequences.parser

Inputs
sequence-parsera sequence-parser
sequencea sequence


Outputs
obj/fan object or f


Definition


:: 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 ;