klisp

commit 0945c7a9e3849e431c0ae9501b2f10fcaa7d1d83
parent 9b7e91e97554f09bfa016cc1bc39343b413ed4b3
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Mon, 25 Apr 2011 18:05:02 -0300

Bugfix: added infinities to the definition of krealp.

Diffstat:
M
src/kgnumbers.c
 | 
5
++++-

1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/kgnumbers.c b/src/kgnumbers.c
@@ -37,7 +37,10 @@ bool kfinitep(TValue obj) { return (!ttiseinf(obj) && !ttisiinf(obj)); }
 bool kintegerp(TValue obj) { return ttisinteger(obj); }
 bool krationalp(TValue obj) { return ttisrational(obj); }
 /* all real are rationals in klisp */
-bool krealp(TValue obj) { return ttisrational(obj); }
+bool krealp(TValue obj) 
+{ 
+    return ttisrational(obj) || ttiseinf(obj) || ttisiinf(obj); 
+}
 
  /* 12.5.2 =? */
  /* uses typed_bpredp */