Mercurial > emacs
comparison lisp/calc/calc-misc.el @ 81596:d175ac539ca9
(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 | 1154f082efd9 |
| children | b98604865ea0 988f1edc9674 |
comparison
equal
deleted
inserted
replaced
| 81595:a225332a57fd | 81596:d175ac539ca9 |
|---|---|
| 577 0) | 577 0) |
| 578 (/ a 2))) | 578 (/ a 2))) |
| 579 | 579 |
| 580 (defun math-div2-bignum (a) ; [l l] | 580 (defun math-div2-bignum (a) ; [l l] |
| 581 (if (cdr a) | 581 (if (cdr a) |
| 582 (cons (+ (/ (car a) 2) (* (% (nth 1 a) 2) 500)) | 582 (cons (+ (/ (car a) 2) (* (% (nth 1 a) 2) (/ math-bignum-digit-size 2))) |
| 583 (math-div2-bignum (cdr a))) | 583 (math-div2-bignum (cdr a))) |
| 584 (list (/ (car a) 2)))) | 584 (list (/ (car a) 2)))) |
| 585 | 585 |
| 586 | 586 |
| 587 ;;; Reject an argument to a calculator function. [Public] | 587 ;;; Reject an argument to a calculator function. [Public] |