From e00a392736161a3438476a7adc6a37fdc6482f6c Mon Sep 17 00:00:00 2001
From: Chris Double <chris@bethia.(none)>
Date: Sat, 5 Apr 2008 18:41:28 +1300
Subject: [PATCH] Refactor delay parser

---
 extra/peg/peg.factor | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 22405c9cbf..8d5d1c1560 100755
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -453,11 +453,7 @@ M: delay-parser (compile) ( parser -- quot )
   #! For efficiency we memoize the quotation.
   #! This way it is run only once and the 
   #! parser constructed once at run time.
-  [
-    quot>> % \ compile ,
-  ] [ ] make 
-  { } { "word" } <effect> memoize-quot 
-  [ % \ execute , ] [ ] make ;
+  quot>> '[ @ compile ] { } { "word" } <effect> memoize-quot '[ @ execute ] ; 
 
 TUPLE: box-parser quot ;