Remove special lowering of .' in *, /, and \ expressions to A[t]_(mul…

…|ldiv|rdiv)_B[t].

src/julia-syntax.scm

@@ -1525,17 +1525,8 @@
                       ,(expand-forms (cadr b)))
                `(call ,(aref ops 1) #;Ac_mul_B ,(expand-forms (cadr a))
                       ,(expand-forms b))))
-          ((trans? a)
-           (if (trans? b)
-               `(call ,(aref ops 2) #;At_mul_Bt ,(expand-forms (cadr a))
-                      ,(expand-forms (cadr b)))
-               `(call ,(aref ops 3) #;At_mul_B ,(expand-forms (cadr a))
-                      ,(expand-forms b))))
           ((ctrans? b)
-           `(call ,(aref ops 4) #;A_mul_Bc ,(expand-forms a)
-                  ,(expand-forms (cadr b))))
-          ((trans? b)
-           `(call ,(aref ops 5) #;A_mul_Bt ,(expand-forms a)
+           `(call ,(aref ops 2) #;A_mul_Bc ,(expand-forms a)
                   ,(expand-forms (cadr b))))
           (else
            `(call ,(cadr e) ,(expand-forms a) ,(expand-forms b))))))
@@ -2223,15 +2214,15 @@
                  ((and (eq? f '*) (length= e 4))
                   (expand-transposed-op
                    e
-                   #(Ac_mul_Bc Ac_mul_B At_mul_Bt At_mul_B A_mul_Bc A_mul_Bt)))
+                   #(Ac_mul_Bc Ac_mul_B A_mul_Bc)))
                  ((and (eq? f '/) (length= e 4))
                   (expand-transposed-op
                    e
-                   #(Ac_rdiv_Bc Ac_rdiv_B At_rdiv_Bt At_rdiv_B A_rdiv_Bc A_rdiv_Bt)))
+                   #(Ac_rdiv_Bc Ac_rdiv_B A_rdiv_Bc)))
                  ((and (eq? f '\\) (length= e 4))
                   (expand-transposed-op
                    e
-                   #(Ac_ldiv_Bc Ac_ldiv_B At_ldiv_Bt At_ldiv_B A_ldiv_Bc A_ldiv_Bt)))
+                   #(Ac_ldiv_Bc Ac_ldiv_B A_ldiv_Bc)))
                  (else
                   (map expand-forms e))))
          (map expand-forms e)))