Fix (foo):n usage

db4
Chris Double 2008-06-19 14:23:18 +12:00
parent 2b2ede0a89
commit 04453b2421
1 changed files with 12 additions and 8 deletions

View File

@ -232,6 +232,7 @@ DEFER: 'choice'
: ('sequence') ( -- parser )
#! A sequence of terminals and non-terminals, including
#! groupings of those.
[
[
'ensure-not' sp ,
'ensure' sp ,
@ -240,6 +241,9 @@ DEFER: 'choice'
'repeat0' sp ,
'repeat1' sp ,
'optional' sp ,
] choice*
[ dup , ":" syntax , "a-zA-Z" range-pattern repeat1 [ >string ] action , ] seq* [ first2 <ebnf-var> ] action ,
,
] choice* ;
: 'action' ( -- parser )