[Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      07/07/06 03:56:13

Index: calc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc.el,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -b -r1.81 -r1.82
--- calc.el     23 Jun 2007 04:05:29 -0000      1.81
+++ calc.el     6 Jul 2007 03:56:12 -0000       1.82
@@ -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