From 57907169276e3c909fad994284a355455575d78c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 28 Nov 2016 18:11:36 -0500
Subject: [PATCH] Added Cyc_list()

---
 include/cyclone/runtime.h | 1 +
 runtime.c                 | 7 +++++++
 2 files changed, 8 insertions(+)

diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h
index 781815bf..3f45b21c 100644
--- a/include/cyclone/runtime.h
+++ b/include/cyclone/runtime.h
@@ -202,6 +202,7 @@ object Cyc_number2string2(void *data, object cont, int argc, object n, ...);
 object Cyc_symbol2string(void *d, object cont, object sym);
 object Cyc_string2symbol(void *d, object str);
 object Cyc_list2string(void *d, object cont, object lst);
+object Cyc_list(void *data, int argc, object cont, object objs_raw, ...);
 object Cyc_string2number_(void *d, object cont, object str);
 object Cyc_string2number2_(void *data, object cont, int argc, object str, ...);
 int binstr2int(const char *str);
diff --git a/runtime.c b/runtime.c
index 4616a757..039f0b15 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1629,6 +1629,13 @@ object Cyc_list2string(void *data, object cont, object lst)
   }
 }
 
+object Cyc_list(void *data, int argc, object cont, object objs_raw, ...) 
+{
+  load_varargs(objs, objs_raw, argc - 1);
+  //Cyc_st_add(data, "scheme/base.sld:list");
+  _return_closcall1(data, cont, objs);
+}
+
 object Cyc_string2number2_(void *data, object cont, int argc, object str, ...)
 {
   object base = NULL;