steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add EBNF: word

release
Chris Double 2007-11-28 11:46:06 +13:00
parent 7a414869de
commit 88e93446b2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/peg/ebnf/ebnf.factor
View File

@ -108,7 +108,7 @@ 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 [
@ -116,3 +116,5 @@ DEFER: 'rhs'
] [
f
] if* ;
: EBNF: ";" parse-tokens "" join ebnf>quot call ; parsing