From ae51ae1108370a4dcce5368cc5399ce57694db8c Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Tue, 27 Nov 2007 04:53:27 +0000 Subject: [PATCH] (math-provably-realp): Fix typo. --- lisp/calc/calc-ext.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index 31203f98244..44465a24790 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]