and-parser-parse ( list p1 -- list )

Vocabulary

parser-combinators

Inputs

list	an object
p1	an object

Outputs

list

an object

Definition

USING: accessors arrays kernel lists.lazy ;

IN: parser-combinators

: and-parser-parse ( list p1 -- list )
    swap [
        dup unparsed>> rot parse [
            [ parsed>> ] dip [ parsed>> 2array ] keep
            unparsed>> <parse-result>
        ] with lmap-lazy
    ] with lmap-lazy lconcat ;