From 7bcdf16a710fa1bd63f9ef32663b33a645d4238e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 5 Sep 2008 20:14:37 -0500
Subject: [PATCH] fix peg

---
 basis/peg/peg.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index dbb3a04a09..9ef1ac658e 100755
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -517,7 +517,7 @@ TUPLE: sp-parser p1 ;
 
 M: sp-parser (compile) ( peg -- quot )
   p1>> compile-parser 1quotation '[ 
-    input-slice trim-left-slice input-from pos set @ 
+    input-slice [ blank? ] trim-left-slice input-from pos set @ 
   ] ;
 
 TUPLE: delay-parser quot ;