From 5ff682a592965fa93d18a3bfd848dffe5468e21b Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 19 Feb 2021 10:19:32 -0500
Subject: [PATCH] Remove Cyc-list, seems unused

---
 include/cyclone/runtime.h     | 1 -
 runtime.c                     | 7 -------
 scheme/cyclone/primitives.sld | 5 -----
 3 files changed, 13 deletions(-)

diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h
index 98f0ad07..cae2ce9c 100644
--- a/include/cyclone/runtime.h
+++ b/include/cyclone/runtime.h
@@ -873,7 +873,6 @@ object Cyc_length(void *d, object l);
 object Cyc_length_unsafe(void *d, object l);
 object Cyc_list2vector(void *data, object cont, object l);
 object Cyc_list2string(void *d, object cont, object lst);
-object Cyc_list(void *data, int argc, object cont, ...);
 object memberp(void *data, object x, list l);
 object memqp(void *data, object x, list l);
 list assq(void *data, object x, list l);
diff --git a/runtime.c b/runtime.c
index fdc48ac6..e1ad0982 100644
--- a/runtime.c
+++ b/runtime.c
@@ -2400,13 +2400,6 @@ object Cyc_list2string(void *data, object cont, object lst)
   }
 }
 
-object Cyc_list(void *data, int argc, object cont, ...) 
-{
-  load_varargs(objs, cont, argc);
-  //Cyc_st_add(data, "Cyc-list");
-  _return_closcall1(data, cont, cdr(objs));
-}
-
 object Cyc_string2number2_(void *data, object cont, int argc, object str, ...)
 {
   object base = NULL;
diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld
index b4616f8e..7d91831f 100644
--- a/scheme/cyclone/primitives.sld
+++ b/scheme/cyclone/primitives.sld
@@ -87,7 +87,6 @@
          Cyc-stdout
          Cyc-stdin
          Cyc-stderr
-         Cyc-list
          Cyc-if
          Cyc-foreign-code
          Cyc-foreign-value
@@ -531,7 +530,6 @@
          ((eq? p 'Cyc-stdout)            "Cyc_stdout")
          ((eq? p 'Cyc-stdin)             "Cyc_stdin")
          ((eq? p 'Cyc-stderr)            "Cyc_stderr")
-         ((eq? p 'Cyc-list)              "Cyc_list")
          ((eq? p 'Cyc-if)                "Cyc_if")
          ((eq? p 'Cyc-foreign-code)      "UNDEF")
          ((eq? p 'Cyc-foreign-value)     "UNDEF")
@@ -706,7 +704,6 @@
     (define (prim/data-arg? p)
      (or
       (memq p '(
-        Cyc-list
         Cyc-foreign-code
         Cyc-foreign-value
         Cyc-fast-plus
@@ -963,7 +960,6 @@
                          set-cdr!
                          vector-set!
                          set-global!
-                         Cyc-list
                          Cyc-read-char Cyc-peek-char 
                          symbol->string list->string substring string-append string->number
                          make-bytevector
@@ -994,7 +990,6 @@
                            bytevector
                            bytevector-append
                            make-vector
-                           Cyc-list
                            = > < >= <=
                            + - * /))))