<and-parser> ( parsers -- parser )

Vocabulary

parser-combinators

Inputs

parsers

an object

Outputs

parser

an object

Definition

USING: kernel sequences ;

IN: parser-combinators

: <and-parser> ( parsers -- parser )
    dup length 1 = [ first ] [ and-parser boa ] if ;