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_length_unsafe(void *d, object l);
|
||||||
object Cyc_list2vector(void *data, object cont, object l);
|
object Cyc_list2vector(void *data, object cont, object l);
|
||||||
object Cyc_list2string(void *d, object cont, object lst);
|
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 memberp(void *data, object x, list l);
|
||||||
object memqp(void *data, object x, list l);
|
object memqp(void *data, object x, list l);
|
||||||
list assq(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 Cyc_string2number2_(void *data, object cont, int argc, object str, ...)
|
||||||
{
|
{
|
||||||
object base = NULL;
|
object base = NULL;
|
||||||
|
|
|
@ -87,7 +87,6 @@
|
||||||
Cyc-stdout
|
Cyc-stdout
|
||||||
Cyc-stdin
|
Cyc-stdin
|
||||||
Cyc-stderr
|
Cyc-stderr
|
||||||
Cyc-list
|
|
||||||
Cyc-if
|
Cyc-if
|
||||||
Cyc-foreign-code
|
Cyc-foreign-code
|
||||||
Cyc-foreign-value
|
Cyc-foreign-value
|
||||||
|
@ -531,7 +530,6 @@
|
||||||
((eq? p 'Cyc-stdout) "Cyc_stdout")
|
((eq? p 'Cyc-stdout) "Cyc_stdout")
|
||||||
((eq? p 'Cyc-stdin) "Cyc_stdin")
|
((eq? p 'Cyc-stdin) "Cyc_stdin")
|
||||||
((eq? p 'Cyc-stderr) "Cyc_stderr")
|
((eq? p 'Cyc-stderr) "Cyc_stderr")
|
||||||
((eq? p 'Cyc-list) "Cyc_list")
|
|
||||||
((eq? p 'Cyc-if) "Cyc_if")
|
((eq? p 'Cyc-if) "Cyc_if")
|
||||||
((eq? p 'Cyc-foreign-code) "UNDEF")
|
((eq? p 'Cyc-foreign-code) "UNDEF")
|
||||||
((eq? p 'Cyc-foreign-value) "UNDEF")
|
((eq? p 'Cyc-foreign-value) "UNDEF")
|
||||||
|
@ -706,7 +704,6 @@
|
||||||
(define (prim/data-arg? p)
|
(define (prim/data-arg? p)
|
||||||
(or
|
(or
|
||||||
(memq p '(
|
(memq p '(
|
||||||
Cyc-list
|
|
||||||
Cyc-foreign-code
|
Cyc-foreign-code
|
||||||
Cyc-foreign-value
|
Cyc-foreign-value
|
||||||
Cyc-fast-plus
|
Cyc-fast-plus
|
||||||
|
@ -963,7 +960,6 @@
|
||||||
set-cdr!
|
set-cdr!
|
||||||
vector-set!
|
vector-set!
|
||||||
set-global!
|
set-global!
|
||||||
Cyc-list
|
|
||||||
Cyc-read-char Cyc-peek-char
|
Cyc-read-char Cyc-peek-char
|
||||||
symbol->string list->string substring string-append string->number
|
symbol->string list->string substring string-append string->number
|
||||||
make-bytevector
|
make-bytevector
|
||||||
|
@ -994,7 +990,6 @@
|
||||||
bytevector
|
bytevector
|
||||||
bytevector-append
|
bytevector-append
|
||||||
make-vector
|
make-vector
|
||||||
Cyc-list
|
|
||||||
= > < >= <=
|
= > < >= <=
|
||||||
+ - * /))))
|
+ - * /))))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue