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

Merge branch 'master' of http://double.co.nz/git/factor

db4
Doug Coleman 2008-07-14 23:47:39 -05:00
parent 21c586dd6e 3f68fb4618
commit 5cbc81d3de
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/peg/ebnf/ebnf-tests.factor
View File

@ -449,7 +449,7 @@ foo=<foreign any-char> 'd'
] unit-test ] unit-test
[ [
"USING: peg.ebnf ; \"ab\" [EBNF foo='a' foo='b' EBNF]" eval drop "USING: peg.ebnf ; <EBNF foo='a' foo='b' EBNF>" eval drop
] must-fail ] must-fail
{ t } [ { t } [

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

@ -371,7 +371,7 @@ M: ebnf-tokenizer (transform) ( ast -- parser )
M: ebnf-rule (transform) ( ast -- parser ) M: ebnf-rule (transform) ( ast -- parser )
dup elements>> dup elements>>
(transform) [ (transform) [
swap symbol>> dup get { [ tuple? ] [ delegate parser? ] } 1&& [ swap symbol>> dup get parser? [
"Rule '" over append "' defined more than once" append throw "Rule '" over append "' defined more than once" append throw
] [ ] [
set set