From f89d35bb09e2c2c85fe28575054d80645b20575a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 21 Apr 2016 00:48:56 -0400
Subject: [PATCH] Removed unused functions

---
 include/cyclone/runtime.h | 3 ---
 runtime.c                 | 5 -----
 2 files changed, 8 deletions(-)

diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h
index 742e0815..bac2e485 100644
--- a/include/cyclone/runtime.h
+++ b/include/cyclone/runtime.h
@@ -22,8 +22,6 @@
 #define Cyc_check_type(data, fnc_test, tag, obj) { \
   if ((boolean_f == fnc_test(obj))) Cyc_invalid_type_error(data, tag, obj); }
 
-#define Cyc_check_cons_or_null(d,obj) { if (obj != NULL) { Cyc_check_cons(d,obj); }}
-#define Cyc_check_cons(d,obj) Cyc_check_type(d,Cyc_is_cons, pair_tag, obj);
 #define Cyc_check_pair_or_null(d,obj) { if (obj != NULL) { Cyc_check_pair(d,obj); }}
 #define Cyc_check_pair(d,obj) Cyc_check_type(d,Cyc_is_pair, pair_tag, obj);
 #define Cyc_check_num(d,obj) Cyc_check_type(d,Cyc_is_number, integer_tag, obj);
@@ -210,7 +208,6 @@ object Cyc_io_peek_char(void *data, object cont, object port);
 object Cyc_io_read_line(void *data, object cont, object port);
 
 object Cyc_is_boolean(object o);
-object Cyc_is_cons(object o);
 object Cyc_is_pair(object o);
 object Cyc_is_null(object o);
 object Cyc_is_number(object o);
diff --git a/runtime.c b/runtime.c
index ea9bd4a1..91fdc905 100644
--- a/runtime.c
+++ b/runtime.c
@@ -868,11 +868,6 @@ object Cyc_is_boolean(object o){
         return boolean_t;
     return boolean_f;}
 
-object Cyc_is_cons(object o){
-    if ((o != NULL) && !is_value_type(o) && ((list)o)->tag == pair_tag)
-        return boolean_t;
-    return boolean_f;}
-
 object Cyc_is_pair(object o){
     if ((o != NULL) && !is_value_type(o) && ((list)o)->tag == pair_tag)
         return boolean_t;