infix: removing alternate syntax due to use of multiline strings...

diff --git a/extra/infix/infix.factor b/extra/infix/infix.factor
index 9c2613004adc3e9e5433fcd8d6fb66c4f202b7e8..8b15f1f3646d053d8d9440da0c5dd588f891e4a7 100644 (file)
--- a/extra/infix/infix.factor
+++ b/extra/infix/infix.factor
@@ -112,14 +112,11 @@ M: ast-function infix-codegen
     [ arguments>> [ arguments-codegen ] [ length ] bi ]
     [ name>> ] bi find-and-check ;
 
-: [infix-parse ( end -- result/quot )
+: parse-infix-quotation ( end -- result/quot )
     parse-multiline-string build-infix-ast
     infix-codegen prepare-operand ;
 
 PRIVATE>
 
 SYNTAX: [infix
-    "infix]" [infix-parse suffix! \ call suffix! ;
-
-SYNTAX: infix[
-    "]" [infix-parse suffix! \ call suffix! ;
+    "infix]" parse-infix-quotation suffix! \ call suffix! ;