(math-add-bignum): Replace number by constant.

2 files changed, 4 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ed55f6a515..047be6d9e9e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -12,6 +12,8 @@
         instead of their values.
         (math-clip): Use math-small-integer-size instead of its value.
 
+        * calc/calc.el (math-add-bignum): Replace number by constant.
+
 2007-07-05  Chong Yidong  <cyd@stupidchicken.com>
 
         * wid-edit.el (widget-documentation-string-value-create): Insert
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 78d6231cb15..d81c1070b9f 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2780,7 +2780,7 @@ largest Emacs integer.")
                       (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 @@ largest Emacs integer.")
             (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