Merge branch 'master' of http://factorcode.org/git/factor

[factor.git] / extra / infix / infix.factor

diff --git a/extra/infix/infix.factor b/extra/infix/infix.factor
index ab578124f803ed12e8d0535af1fecea6427e0222..48ac35264b2081eb302d5c9624a20e1304a57537 100644 (file)
--- a/extra/infix/infix.factor
+++ b/extra/infix/infix.factor
@@ -83,14 +83,3 @@ PRIVATE>
 
 SYNTAX: [infix
     "infix]" [infix-parse suffix! \ call suffix! ;
-
-<PRIVATE
-
-: parse-infix-locals ( assoc end -- quot )
-    '[ _ [infix-parse prepare-operand ] ((parse-lambda)) ;
-
-PRIVATE>
-
-SYNTAX: [infix|
-    "|" parse-bindings "infix]" parse-infix-locals <let>
-    ?rewrite-closures append! ;