# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1276730840 18000
# Node ID 8020ce418135657cd862ad57e1c7f788058eb23b
# Parent  d94083f6e4e980e1bf02cfa8b5924b6610592490
calc-poly.el: (math-accum-factors):  Make sure that constants aren't distributed
after they are factored out.

diff -r d94083f6e4e9 -r 8020ce418135 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jun 17 00:33:54 2010 +0300
+++ b/lisp/ChangeLog	Wed Jun 16 18:27:20 2010 -0500
@@ -1,3 +1,8 @@
+2010-06-16  Jay Belanger  <jay.p.belanger@gmail.com>
+
+	* calc/calc-poly.el: (math-accum-factors):  Make sure that
+	constants aren't distributed after they are factored out.
+
 2010-06-16  Juri Linkov  <juri@jurta.org>
 
 	* facemenu.el (list-colors-display): Call `pop-to-buffer' before
diff -r d94083f6e4e9 -r 8020ce418135 lisp/calc/calc-poly.el
--- a/lisp/calc/calc-poly.el	Thu Jun 17 00:33:54 2010 +0300
+++ b/lisp/calc/calc-poly.el	Wed Jun 16 18:27:20 2010 -0500
@@ -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)