fix peg
parent
54cb14baea
commit
7bcdf16a71
|
@ -517,7 +517,7 @@ TUPLE: sp-parser p1 ;
|
||||||
|
|
||||||
M: sp-parser (compile) ( peg -- quot )
|
M: sp-parser (compile) ( peg -- quot )
|
||||||
p1>> compile-parser 1quotation '[
|
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 ;
|
TUPLE: delay-parser quot ;
|
||||||
|
|
Loading…
Reference in New Issue