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

Fixing PEG:

db4
Slava Pestov 2008-06-18 00:58:29 -05:00
parent 21d3380bf2
commit 83099e01d4
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/peg/peg.factor
View File

@ -571,14 +571,16 @@ M: parse-failed error.
: PEG: : PEG:
(:) (:)
[let* | def [ ] word [ ] compiled-def [ def call compile ] | [let | word [ ] def [ ] |
[ [
[ [
[let | compiled-def [ def call compile ]
[ [
dup compiled-def compiled-parse dup compiled-def compiled-parse
[ ast>> ] [ word parse-failed ] ?if [ ast>> ] [ word parse-failed ] ?if
] ]
word swap define word swap define
]
] with-compilation-unit ] with-compilation-unit
] over push-all ] over push-all
] ; parsing ] ; parsing