Fix parser-combinators load issue

release
Slava Pestov 2007-11-24 18:33:20 -05:00
parent 84076184dd
commit 30731a5808
1 changed files with 2 additions and 2 deletions

View File

@ -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 ;