]> git.eshelyaron.com Git - emacs.git/commitdiff
(math-factor-poly-coefs): Make sure the terms in linear factors in proper
authorJay Belanger <jay.p.belanger@gmail.com>
Wed, 18 May 2005 12:34:30 +0000 (12:34 +0000)
committerJay Belanger <jay.p.belanger@gmail.com>
Wed, 18 May 2005 12:34:30 +0000 (12:34 +0000)
order.

lisp/calc/calc-poly.el

index e2b434be10998d381de43b46061a9f26d94978ae..89d8273d6d6769c796fa8bb0aafe1f9dd4bde32a 100644 (file)
 
          ;; Check if linear in math-fet-x.
          ((not (cdr (cdr p)))
-          (math-add (math-factor-protect
-                     (math-sort-terms
-                      (math-factor-expr (car p))))
-                    (math-mul math-fet-x (math-factor-protect
-                                 (math-sort-terms
-                                  (math-factor-expr (nth 1 p)))))))
+           (math-sort-terms
+            (math-add (math-factor-protect
+                       (math-sort-terms
+                        (math-factor-expr (car p))))
+                      (math-mul math-fet-x (math-factor-protect
+                                            (math-sort-terms
+                                             (math-factor-expr (nth 1 p))))))))
 
          ;; If symbolic coefficients, use FactorRules.
          ((let ((pp p))