From a81161904c186d14bfdc942e24e17e950d66818a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 7 Jun 2017 22:34:21 +0000
Subject: [PATCH] Cleaner code for (pair?)

---
 runtime.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/runtime.c b/runtime.c
index 95ff779a..2babc8b1 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1470,7 +1470,7 @@ object Cyc_is_boolean(object o)
 
 object Cyc_is_pair(object o)
 {
-  if ((o != NULL) && !is_value_type(o) && ((list) o)->tag == pair_tag)
+  if (is_object_type(o) && ((list) o)->tag == pair_tag)
     return boolean_t;
   return boolean_f;
 }