mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Jay Belanger 2007-07-06 03:58:00 +00:00
parent 3fa5c46284
commit 9ae06d96f6
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/calc/calc.el
View file

@ -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