Mercurial > emacs
changeset 68304:0609d354823d
(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 | 9d71640b5bb2 |
| children | 07b6f0a646da |
| files | lisp/calc/calcalg2.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
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))))))