diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2010-06-16 18:27:20 -0500 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2010-06-16 18:27:20 -0500 |
| commit | fb3e306a4f7d229bce20e36afe8a128146c0932a (patch) | |
| tree | e7a632088f1f0802e2eaf6048c702edabea8a3fc /lisp/calc/calc-poly.el | |
| parent | e020fb59a3a7df1c47ef6bdae4b49eef4bab6c1b (diff) | |
| download | emacs-fb3e306a4f7d229bce20e36afe8a128146c0932a.tar.gz | |
calc-poly.el: (math-accum-factors): Make sure that constants aren't distributed
after they are factored out.
Diffstat (limited to 'lisp/calc/calc-poly.el')
| -rw-r--r-- | lisp/calc/calc-poly.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el index a994ace6fb6..f268a032d14 100644 --- a/lisp/calc/calc-poly.el +++ b/lisp/calc/calc-poly.el @@ -663,7 +663,7 @@ (cons 'vec (cons (nth 1 facs) (cons (list 'vec fac pow) (cdr (cdr facs))))) (cons 'vec (cons (list 'vec fac pow) (cdr facs)))))))) - (math-mul (math-pow fac pow) facs))) + (math-mul (math-pow fac pow) (math-factor-protect facs)))) (defun math-factor-poly-coefs (p &optional square-free) ; uses "x" (let (t1 t2 temp) |