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