(calcFunc-collect): Return constant polynomial when appropriate.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7794e110c763e145a30369de6bd4707cdc5acf6c..eadc70785d39ee2734c3ba6a22bc85c61882c964 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-03  Vincent Belaïche  <vincent.b.1@hotmail.fr>
+
+       * calc/calc-alg.el (calcFunc-collect): Return constant polynomial
+       when appropriate.
+
 2008-11-02  Martin Rudalics  <rudalics@gmx.at>
 
        * window.el (save-selected-window-norecord): New macro

diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el
index 20730b91dca055f4bef9428ce6cad977e4ed5074..34d2829f2c363917c21df6590cb35cba3e45c135 100644 (file)
--- a/lisp/calc/calc-alg.el
+++ b/lisp/calc/calc-alg.el
@@ -1600,7 +1600,7 @@
     (if (cdr p)
        (math-normalize   ; fix selection bug
         (math-build-polynomial-expr p base))
-      expr)))
+      (car p))))
 
 ;;; If expr is of the form "a + bx + cx^2 + ...", return the list (a b c ...),
 ;;; else return nil if not in polynomial form.  If "loose" (math-is-poly-loose),