From 5ff682a592965fa93d18a3bfd848dffe5468e21b Mon Sep 17 00:00:00 2001 From: Justin Ethier 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 = > < >= <= + - * /))))