grouped ( quot suffix -- parser )

Vocabulary

peg.ebnf.private

Inputs

quot	an object
suffix	an object

Outputs

parser

an object

Definition

USING: kernel make peg sequences ;

IN: peg.ebnf.private

: grouped ( quot suffix -- parser )
    [
        2dup "(" [ choice-parser sp ] delay ")" syntax-pack
        swap 2seq [ first ] rot compose action , "{"
        [ choice-parser sp ] delay "}" syntax-pack swap 2seq
        [ first <ebnf-whitespace> ] rot compose action ,
    ] choice* ;