From fe65274c777903816a3475e1d9248b524400ea41 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 28 Jul 2016 23:34:03 -0400
Subject: [PATCH] Added Cyc_car / Cyc_cdr

---
 include/cyclone/runtime.h |  2 ++
 runtime.c                 | 12 ++++++++++++
 2 files changed, 14 insertions(+)

diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h
index a51db56d..b3fbd248 100644
--- a/include/cyclone/runtime.h
+++ b/include/cyclone/runtime.h
@@ -122,6 +122,8 @@ extern object Cyc_global_variables;
 int _cyc_argc;
 char **_cyc_argv;
 void gc_init_heap(long heap_size);
+object Cyc_car(void *data, object lis);
+object Cyc_cdr(void *data, object lis);
 object Cyc_get_global_variables();
 object Cyc_get_cvar(object var);
 object Cyc_set_cvar(object var, object value);
diff --git a/runtime.c b/runtime.c
index 9e080dec..31929e10 100644
--- a/runtime.c
+++ b/runtime.c
@@ -527,6 +527,18 @@ int equal(object x, object y)
   }
 }
 
+object Cyc_car(void *data, object lis)
+{
+  Cyc_check_pair(data, lis);
+  return car(lis);
+}
+
+object Cyc_cdr(void *data, object lis)
+{
+  Cyc_check_pair(data, lis);
+  return cdr(lis);
+}
+
 object Cyc_get_global_variables()
 {
   return Cyc_global_variables;