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

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      07/06/24 19:37:44

Index: calc-misc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-misc.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- calc-misc.el        23 Apr 2007 21:23:31 -0000      1.28
+++ calc-misc.el        24 Jun 2007 19:37:43 -0000      1.29
@@ -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))))