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

API cleanup

Browse source
This commit is contained in:
Justin Ethier 2016-03-22 01:29:51 -04:00
parent 739831ebe6
commit 1b92040258
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
include/cyclone/runtime.h
View file

@ -148,9 +148,9 @@ object __num_lte(void *, object x, object y);
object Cyc_eq(object x, object y);
object Cyc_set_car(void *, object l, object val) ;
object Cyc_set_cdr(void *, object l, object val) ;
integer_type Cyc_length(void *d, object l);
object Cyc_vector_length(void *data, object v);
object Cyc_length2(void *d, object l);
integer_type Cyc_length_as_object(void *d, object l);
object Cyc_vector_length(void *data, object v);
object Cyc_vector_ref(void *d, object v, object k);
object Cyc_vector_set(void *d, object v, object k, object obj);
object Cyc_make_vector(void *data, object cont, object len, object fill);

14
runtime.c
View file

@ -881,7 +881,7 @@ object Cyc_is_procedure(void *data, object o) {
tag == primitive_tag) {
return boolean_t;
} else if (tag == cons_tag) {
integer_type l = Cyc_length(data, o);
integer_type l = Cyc_length_as_object(data, o);
if (l.value > 0 && Cyc_is_symbol(car(o)) == boolean_t) {
if (strncmp(((symbol)car(o))->pname, "primitive", 10) == 0 ||
strncmp(((symbol)car(o))->pname, "procedure", 10) == 0 ) {
@ -977,7 +977,7 @@ object Cyc_vector_ref(void *data, object v, object k) {
return ((vector)v)->elts[idx];
}
integer_type Cyc_length(void *data, object l){
integer_type Cyc_length_as_object(void *data, object l){
make_int(len, 0);
while(!nullp(l)){
if (is_value_type(l) || ((list)l)->tag != cons_tag){
@ -1823,18 +1823,18 @@ void _Cyc_91end_91thread_67(void *data, object cont, object args) {
Cyc_end_thread((gc_thread_data *)data);
return_closcall1(data, cont, boolean_f); }
void __87(void *data, object cont, object args) {
integer_type argc = Cyc_length(data, args);
integer_type argc = Cyc_length_as_object(data, args);
dispatch(data, argc.value, (function_type)dispatch_sum, cont, cont, args); }
void __91(void *data, object cont, object args) {
Cyc_check_num_args(data, "-", 1, args);
{ integer_type argc = Cyc_length(data, args);
{ integer_type argc = Cyc_length_as_object(data, args);
dispatch(data, argc.value, (function_type)dispatch_sub, cont, cont, args); }}
void __85(void *data, object cont, object args) {
integer_type argc = Cyc_length(data, args);
integer_type argc = Cyc_length_as_object(data, args);
dispatch(data, argc.value, (function_type)dispatch_mul, cont, cont, args); }
void __95(void *data, object cont, object args) {
Cyc_check_num_args(data, "/", 1, args);
{ integer_type argc = Cyc_length(data, args);
{ integer_type argc = Cyc_length_as_object(data, args);
dispatch(data, argc.value, (function_type)dispatch_div, cont, cont, args); }}
void _Cyc_91cvar_127(void *data, object cont, object args) {
Cyc_check_num_args(data, "Cyc-cvar?", 1, args);
@ -1977,7 +1977,7 @@ void _cyc_system(void *data, object cont, object args) {
{ object obj = Cyc_system(car(args));
return_closcall1(data, cont, obj);}}
//void _error(void *data, object cont, object args) {
// integer_type argc = Cyc_length(args);
// integer_type argc = Cyc_length_as_object(args);
// dispatch_va(data, argc.value, dispatch_error, cont, cont, args); }
void _Cyc_91current_91exception_91handler(void *data, object cont, object args) {
object handler = Cyc_current_exception_handler(data);