Fix parser-combinators load issue
parent
84076184dd
commit
30731a5808
|
@ -13,11 +13,11 @@ M: promise (parse) ( input parser -- list )
|
||||||
: parse ( input parser -- promise )
|
: parse ( input parser -- promise )
|
||||||
(parse) ;
|
(parse) ;
|
||||||
|
|
||||||
|
TUPLE: parse-result parsed unparsed ;
|
||||||
|
|
||||||
: parse-1 ( input parser -- result )
|
: parse-1 ( input parser -- result )
|
||||||
parse car parse-result-parsed ;
|
parse car parse-result-parsed ;
|
||||||
|
|
||||||
TUPLE: parse-result parsed unparsed ;
|
|
||||||
|
|
||||||
C: <parse-result> parse-result
|
C: <parse-result> parse-result
|
||||||
|
|
||||||
TUPLE: token-parser string ;
|
TUPLE: token-parser string ;
|
||||||
|
|
Loading…
Reference in New Issue