Fix (foo):n usage

diff --git a/extra/peg/ebnf/ebnf.factor b/extra/peg/ebnf/ebnf.factor
index 2ee09580513c22ea41743044dfa3deebe59b89e3..d982d73229a0532c0b4edb8fb197df4b763109df 100644 (file)
--- a/extra/peg/ebnf/ebnf.factor
+++ b/extra/peg/ebnf/ebnf.factor
@@ -232,14 +232,18 @@ DEFER: 'choice'
 : ('sequence') ( -- parser )\r
   #! A sequence of terminals and non-terminals, including\r
   #! groupings of those. \r
-  [ \r
-    'ensure-not' sp ,\r
-    'ensure' sp ,\r
-    'element' sp ,\r
-    'group' sp , \r
-    'repeat0' sp ,\r
-    'repeat1' sp ,\r
-    'optional' sp , \r
+  [\r
+    [ \r
+      'ensure-not' sp ,\r
+      'ensure' sp ,\r
+      'element' sp ,\r
+      'group' sp , \r
+      'repeat0' sp ,\r
+      'repeat1' sp ,\r
+      'optional' sp , \r
+    ] choice* \r
+    [ dup  , ":" syntax , "a-zA-Z" range-pattern repeat1 [ >string ] action , ] seq* [ first2 <ebnf-var> ] action ,\r
+    ,\r
   ] choice* ;\r
 \r
 : 'action' ( -- parser )\r