diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h
index 33ea1b79..dfac0b1b 100644
--- a/include/cyclone/runtime.h
+++ b/include/cyclone/runtime.h
@@ -435,7 +435,8 @@ double MRG32k3a (double seed);
  * \defgroup prim_eq Equality and type predicates
  */
 /**@{*/
-object Cyc_eq(object x, object y);
+//object Cyc_eq(object x, object y);
+#define Cyc_eq(x, y) (make_boolean(x == y))
 int equal(object, object);
 object equalp(object, object);
 object Cyc_has_cycle(object lst);
diff --git a/runtime.c b/runtime.c
index f50bce19..664be9ed 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1720,13 +1720,13 @@ object Cyc_is_procedure(void *data, object o)
 //    return boolean_t;
 //  return boolean_f;
 //}
-
-object Cyc_eq(object x, object y)
-{
-  if (x == y)
-    return boolean_t;
-  return boolean_f;
-}
+//
+//object Cyc_eq(object x, object y)
+//{
+//  if (x == y)
+//    return boolean_t;
+//  return boolean_f;
+//}
 
 object Cyc_set_cell(void *data, object l, object val)
 {