fix peg

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index dbb3a04a09ed5b3140fe03ee5c488154e4ba9654..9ef1ac658e4ccdb96a8c6b03b51bbd5021c9147d 100755 (executable)
--- 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 ;