Mercurial > emacs
comparison lisp/calc/calc-ext.el @ 81576:c17a6c377cf2
(math-fixnum-big): Use the variable math-bignum-digit-size.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sat, 23 Jun 2007 04:36:29 +0000 |
| parents | aa48b88c6f48 |
| children | 79a229b4a7de |
comparison
equal
deleted
inserted
replaced
| 81575:cea1e05b3c83 | 81576:c17a6c377cf2 |
|---|---|
| 2220 0) | 2220 0) |
| 2221 a)) | 2221 a)) |
| 2222 | 2222 |
| 2223 (defun math-fixnum-big (a) | 2223 (defun math-fixnum-big (a) |
| 2224 (if (cdr a) | 2224 (if (cdr a) |
| 2225 (+ (car a) (* (math-fixnum-big (cdr a)) 1000)) | 2225 (+ (car a) (* (math-fixnum-big (cdr a)) math-bignum-digit-size)) |
| 2226 (car a))) | 2226 (car a))) |
| 2227 | 2227 |
| 2228 (defvar math-simplify-only nil) | 2228 (defvar math-simplify-only nil) |
| 2229 | 2229 |
| 2230 (defun math-normalize-fancy (a) | 2230 (defun math-normalize-fancy (a) |