Mercurial > emacs

diff lisp/calc/calc.el @ 81719:38726b7738d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-add-bignum): Replace number by constant.
author Jay Belanger <jay.p.belanger@gmail.com>
date Fri, 06 Jul 2007 03:56:12 +0000
parents d5640ed7c397
children c88370efde0d
line wrap: on
line diff
--- a/lisp/calc/calc.el	Fri Jul 06 02:41:18 2007 +0000
+++ b/lisp/calc/calc.el	Fri Jul 06 03:56:12 2007 +0000
@@ -2780,7 +2780,7 @@
 		      (progn
 			(setcar aa (1+ sum))
 			(setq carry nil))
-		    (setcar aa (+ sum -999)))
+		    (setcar aa (- sum (1- math-bignum-digit-size))))
 		(if (< (setq sum (+ (car aa) (car b))) math-bignum-digit-size)
 		    (setcar aa sum)
 		  (setcar aa (- sum math-bignum-digit-size))
@@ -2790,7 +2790,7 @@
 	    (if carry
 		(if b
 		    (nconc a (math-add-bignum b '(1)))
-		  (while (eq (car aa) 999)
+		  (while (eq (car aa) (1- math-bignum-digit-size))
 		    (setcar aa 0)
 		    (setq aa (cdr aa)))
 		  (if aa