klisp

commit dafc7af18fb444be19f5a649196fa4e957f267e7
parent a6ee8eadad848d8fab83fdf5df652859ebeffdae
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sat, 23 Apr 2011 14:11:35 -0300

Added support for bigrats to eq? (and so, to equal? too)

Diffstat:
M
src/kgeqp.h
 | 
9
+++++++--

1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/src/kgeqp.h b/src/kgeqp.h
@@ -17,6 +17,7 @@
 #include "kobject.h"
 #include "kapplicative.h" /* for unwrap */
 #include "kinteger.h" /* for kbigint_eqp */
+#include "krational.h" /* for kbigrat_eqp */
 #include "klisp.h"
 #include "kghelpers.h"
 
@@ -25,7 +26,6 @@
 void eqp(klisp_State *K, TValue *xparams, TValue ptree, TValue denv);
 
 /* Helper (also used in equal?) */
-/* TEMP: this will change with immutable strings */
 inline bool eq2p(klisp_State *K, TValue obj1, TValue obj2)
 {
     bool res = (tv_equal(obj1, obj2));
@@ -41,7 +41,12 @@ inline bool eq2p(klisp_State *K, TValue obj1, TValue obj2)
 	       that obj1 is bigint and obj is some other type and
 	       (eq? obj1 obj2) */
 	    res = kbigint_eqp(obj1, obj2);
-	}
+	} else if (ttisbigrat(obj1)) {
+	    /* it's important to know that it can't be the case
+	       that obj1 is bigrat and obj is some other type and
+	       (eq? obj1 obj2) */
+	    res = kbigrat_eqp(K, obj1, obj2);
+	} /* immutable strings are interned so are covered already */
     }
     return res;
 }