diff options
| author | Jay Belanger <[email protected]> | 2007-11-27 04:53:27 +0000 |
|---|---|---|
| committer | Jay Belanger <[email protected]> | 2007-11-27 04:53:27 +0000 |
| commit | ae51ae1108370a4dcce5368cc5399ce57694db8c (patch) | |
| tree | a22b5d0b5054b694ff76ec194fa4f6c7e1f67f7e | |
| parent | 4af1faa33cd9e40959a91e3be57314f5a0db107a (diff) | |
(math-provably-realp): Fix typo.
| -rw-r--r-- | lisp/calc/calc-ext.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index 31203f9824..44465a2479 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el @@ -71,7 +71,6 @@ (declare-function math-format-bignum-radix "calc-bin" (a)) (declare-function math-compute-max-digits "calc-bin" (w r)) - (defvar math-simplifying nil) (defvar math-living-dangerously nil) ; true if unsafe simplifications are okay. (defvar math-integrating nil) @@ -2132,7 +2131,7 @@ calc-kill calc-kill-region calc-yank)))) ;;; True if A is a real or will evaluate to a real. [P x] [Public] (defun math-provably-realp (a) (or (Math-realp a) - (math-provably-integer a) + (math-provably-integerp a) (memq (car-safe a) '(abs arg)))) ;;; True if A is a non-real, complex number. [P x] [Public] |