Mercurial > emacs

changeset 81596:d175ac539ca9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-div2-bignum): Use math-bignum-digit-size.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sun, 24 Jun 2007 19:37:43 +0000
parents a225332a57fd
children 4894ac2fb62c
files lisp/calc/calc-misc.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-misc.el	Sun Jun 24 14:30:14 2007 +0000
+++ b/lisp/calc/calc-misc.el	Sun Jun 24 19:37:43 2007 +0000
@@ -579,7 +579,7 @@
 
 (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))))