fix peg

2008-09-05 20:14:37 -05:00 · 2008-09-05 20:14:37 -05:00 · 7bcdf16a71
parent 54cb14baea
commit 7bcdf16a71
1 changed files with 1 additions and 1 deletions
--- 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 ;