Simpler 'union' parser

release
Slava Pestov 2007-12-02 07:19:01 -05:00
parent 1fbfc88b90
commit 12ff0614e6
1 changed files with 1 additions and 3 deletions

View File

@ -173,9 +173,7 @@ C: <group-result> group-result
: 'simple' 'term' 'repetition' 'interval' <|> <|> ;
LAZY: 'union' ( -- parser )
'simple'
'simple' "|" token nonempty-list-of [ <or-parser> ] <@
<|> ;
'simple' "|" token nonempty-list-of [ <or-parser> ] <@ ;
LAZY: 'regexp' ( -- parser )
'repetition' 'union' <|> ;