From bfdb6aebd9bbe95ba454a9a8adcf8e8276defd59 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Wed, 18 May 2005 12:34:30 +0000 Subject: [PATCH] (math-factor-poly-coefs): Make sure the terms in linear factors in proper order. --- lisp/calc/calc-poly.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el index e2b434be109..89d8273d6d6 100644 --- a/lisp/calc/calc-poly.el +++ b/lisp/calc/calc-poly.el @@ -692,12 +692,13 @@ ;; 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)) -- 2.39.5