mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-10 22:37:38 +02:00
Remove Cyc-list, seems unused
This commit is contained in:
parent
c839edb5e2
commit
5ff682a592
3 changed files with 0 additions and 13 deletions
|
@ -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);
|
||||
|
|
|
@ -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;
|
||||
|
|
|
@ -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
|
||||
= > < >= <=
|
||||
+ - * /))))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue