take-until-object ( sequence-parser obj -- sequence )

Vocabulary

sequences.parser

Inputs

sequence-parser	a sequence-parser
obj	an object

Outputs

sequence

a sequence

Definition

USING: kernel ;

IN: sequences.parser

: take-until-object ( sequence-parser obj -- sequence )
    [ [ current ] ] dip [ = ] curry compose take-until ;