Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-10 22:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove Cyc-list, seems unused

Browse source
This commit is contained in:
Justin Ethier 2021-02-19 10:19:32 -05:00
parent c839edb5e2
commit 5ff682a592
3 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/runtime.h
View file

@ -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);

7
runtime.c
View file

@ -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;

5
scheme/cyclone/primitives.sld
View file

@ -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
= > < >= <= = > < >= <=
+ - * /)))) + - * /))))