From: chris.double <chris.double@double.co.nz>
Date: Fri, 6 Oct 2006 03:36:05 +0000 (+0000)
Subject: parser-combinators: refactor <+>
X-Git-Tag: 0.85~78
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=e1cbba1272e9e12e20d60297e1967a9da5b96645

parser-combinators: refactor <+>
---

diff --git a/contrib/parser-combinators/parser-combinators.factor b/contrib/parser-combinators/parser-combinators.factor
index 8edf77f54b..9fe2a1d50e 100644
--- 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 <?>