parser-combinators: refactor <+>

diff --git a/contrib/parser-combinators/parser-combinators.factor b/contrib/parser-combinators/parser-combinators.factor
index 8edf77f54b041be8fb5a327a535fa49fde301958..9fe2a1d50ea5f354e986c65fd37899038593f2ac 100644 (file)
--- a/contrib/parser-combinators/parser-combinators.factor
+++ b/contrib/parser-combinators/parser-combinators.factor
@@ -199,7 +199,7 @@ M: some-parser (parse) ( input parser -- result )
 : <+> ( parser -- parser )
   #! Return a parser that accepts one or more occurences of the original
   #! parser.
-  [  (<+>) call ] curry ;
+  dup <*> <&:> ;
 
 : (<?>) ( parser -- parser )
   #! Non-delayed implementation of <?>