diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-06-24 19:37:43 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-06-24 19:37:43 +0000 |
| commit | f164b8c846f0e77b1604b26adb3e3824cdd1c701 (patch) | |
| tree | 334958edcd189c8286213cb344671b5dd77114fe /lisp/calc | |
| parent | 40cddce8bd63f840f17a1fbe72c68ead91dcd3c7 (diff) | |
| download | emacs-f164b8c846f0e77b1604b26adb3e3824cdd1c701.tar.gz | |
(math-div2-bignum): Use math-bignum-digit-size.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-misc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index e9674ff938b..ecc304a5f5f 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -579,7 +579,7 @@ loaded and the keystroke automatically re-typed." (defun math-div2-bignum (a) ; [l l] (if (cdr a) - (cons (+ (/ (car a) 2) (* (% (nth 1 a) 2) 500)) + (cons (+ (/ (car a) 2) (* (% (nth 1 a) 2) (/ math-bignum-digit-size 2))) (math-div2-bignum (cdr a))) (list (/ (car a) 2)))) |