Mercurial > emacs

diff lisp/calc/calcalg2.el @ 68304:0609d354823d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-sum-rec): Fix the case where the lower limit is 0.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sat, 21 Jan 2006 04:28:29 +0000
parents 06892c426dff
children 6bf177f8065b 5b7d410e31f9
line wrap: on
line diff
--- a/lisp/calc/calcalg2.el	Sat Jan 21 00:34:38 2006 +0000
+++ b/lisp/calc/calcalg2.el	Sat Jan 21 04:28:29 2006 +0000
@@ -2012,7 +2012,7 @@
 		      n (1+ n)
 		      t1 (cdr t1)))
 	      (setq n (math-build-polynomial-expr poly high))
-	      (if (memq low '(0 1))
+	      (if (= low 1)
 		  n
 		(math-sub n (math-build-polynomial-expr poly
 							(math-sub low 1))))))