parser-combinators: convert to new promise syntax

diff --git a/contrib/parser-combinators/parser-combinators.factor b/contrib/parser-combinators/parser-combinators.factor
index 38d5a9ed9bc12af71692de0fcd95dfd76b141223..8edf77f54b041be8fb5a327a535fa49fde301958 100644 (file)
--- a/contrib/parser-combinators/parser-combinators.factor
+++ b/contrib/parser-combinators/parser-combinators.factor
@@ -11,7 +11,7 @@ M: promise (parse) ( input parser -- list )
   force (parse) ;
 
 : parse ( input parser -- promise )
-  [ (parse) ] curry curry <promise> ;
+  [ (parse) ] promise-with2 ;
 
 TUPLE: parse-result parsed unparsed ;
 
@@ -190,7 +190,7 @@ M: some-parser (parse) ( input parser -- result )
   <&> [ dup second swap first [ , % ] { } make ] <@ ;
 
 : <*> ( parser -- parser )
-  [ dup <*> <&:> { } succeed <|> ] curry <promise> ;
+  [ dup <*> <&:> { } succeed <|> ] promise-with ;
 
 : (<+>) ( parser -- parser )
   #! Non-delayed implementation of <+>