Add EBNF: word

2007-11-28 11:46:06 +13:00 · 2007-11-28 11:46:06 +13:00 · 88e93446b2
parent 7a414869de
commit 88e93446b2
1 changed files with 4 additions and 2 deletions
--- a/extra/peg/ebnf/ebnf.factor
+++ b/extra/peg/ebnf/ebnf.factor
@ -108,11 +108,13 @@ DEFER: 'rhs'
  3array seq [ first2 <ebnf-rule> ] action ;

 : 'ebnf' ( -- parser )
-  'rule' sp ";" token sp hide list-of [ <ebnf> ] action ;
+  'rule' sp "." token sp hide list-of [ <ebnf> ] action ;

 : ebnf>quot ( string -- quot )
  'ebnf' parse [
     parse-result-ast ebnf-compile  
   ] [
    f
-   ] if* ;
+   ] if* ;
+
+: EBNF: ";" parse-tokens "" join ebnf>quot call ; parsing