4choice ( parser1 parser2 parser3 parser4 -- parser )


Vocabulary
peg

Inputs
parser1an object
parser2an object
parser3an object
parser4an object


Outputs
parseran object


Definition
USING: arrays ;

IN: peg

: 4choice ( parser1 parser2 parser3 parser4 -- parser )
4array choice ;