From 83099e01d4ecb4670c05f12e33023f211769d4f3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 18 Jun 2008 00:58:29 -0500
Subject: [PATCH] Fixing PEG:
---
extra/peg/peg.factor | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 05f84afedb..3d3b4ad626 100755
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -571,14 +571,16 @@ M: parse-failed error.
: PEG:
(:)
- [let* | def [ ] word [ ] compiled-def [ def call compile ] |
+ [let | word [ ] def [ ] |
[
[
- [
- dup compiled-def compiled-parse
- [ ast>> ] [ word parse-failed ] ?if
+ [let | compiled-def [ def call compile ]
+ [
+ dup compiled-def compiled-parse
+ [ ast>> ] [ word parse-failed ] ?if
+ ]
+ word swap define
]
- word swap define
] with-compilation-unit
] over push-all
] ; parsing