Fix again

db4
Slava Pestov 2008-06-18 01:18:39 -05:00
parent 83099e01d4
commit e55c674a2b
1 changed files with 2 additions and 2 deletions

View File

@ -571,10 +571,10 @@ M: parse-failed error.
: PEG: : PEG:
(:) (:)
[let | word [ ] def [ ] | [let | def [ ] word [ ] |
[ [
[ [
[let | compiled-def [ def call compile ] [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