diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h index 6284b6c1..93608603 100644 --- a/include/cyclone/runtime.h +++ b/include/cyclone/runtime.h @@ -498,8 +498,6 @@ object Cyc_vector_set(void *d, object v, object k, object obj); object Cyc_vector_set_unsafe(void *d, object v, object k, object obj); object Cyc_vector_set_cps(void *d, object cont, object v, object k, object obj); object Cyc_vector_set_unsafe_cps(void *d, object cont, object v, object k, object obj); -object Cyc_vector_set2(void *d, object cont, object v, object k, object obj); -object Cyc_vector_set_unsafe2(void *d, object cont, object v, object k, object obj); object Cyc_make_vector(void *data, object cont, int argc, object len, ...); /**@}*/ @@ -848,8 +846,6 @@ object Cyc_set_car(void *, object l, object val); object Cyc_set_cdr(void *, object l, object val); object Cyc_set_car_cps(void *, object cont, object l, object val); object Cyc_set_cdr_cps(void *, object cont, object l, object val); -object Cyc_set_car2(void *, object cont, object l, object val); -object Cyc_set_cdr2(void *, object cont, object l, object val); object Cyc_length(void *d, object l); object Cyc_length_unsafe(void *d, object l); object Cyc_list2vector(void *data, object cont, object l); diff --git a/runtime.c b/runtime.c index 62c12f07..c1224180 100644 --- a/runtime.c +++ b/runtime.c @@ -2176,14 +2176,6 @@ object Cyc_vector_set_unsafe(void *data, object v, object k, object obj) return v; } -// JAE TODO: comment below in progress -// TODO: rename these as (EG) Cyc_set_car_cps. Uncomment non-CPS above and we can use them for unsafe compilation -// -object Cyc_set_car2(void *data, object cont, object l, object val) -{ - return Cyc_set_car_cps(data, cont, l, val); -} - object Cyc_set_car_cps(void *data, object cont, object l, object val) { if (Cyc_is_pair(l) == boolean_f) { @@ -2207,11 +2199,6 @@ object Cyc_set_car_cps(void *data, object cont, object l, object val) } } -object Cyc_set_cdr2(void *data, object cont, object l, object val) -{ - return Cyc_set_cdr_cps(data, cont, l, val); -} - object Cyc_set_cdr_cps(void *data, object cont, object l, object val) { if (Cyc_is_pair(l) == boolean_f) { @@ -2235,11 +2222,6 @@ object Cyc_set_cdr_cps(void *data, object cont, object l, object val) } } -object Cyc_vector_set2(void *data, object cont, object v, object k, object obj) -{ - return Cyc_vector_set_cps(data, cont, v, k, obj); -} - object Cyc_vector_set_cps(void *data, object cont, object v, object k, object obj) { int idx; @@ -2268,11 +2250,6 @@ object Cyc_vector_set_cps(void *data, object cont, object v, object k, object ob } } -object Cyc_vector_set_unsafe2(void *data, object cont, object v, object k, object obj) -{ - return Cyc_vector_set_unsafe_cps(data, cont, v, k, obj); -} - object Cyc_vector_set_unsafe_cps(void *data, object cont, object v, object k, object obj) { int idx = unbox_number(k); @@ -4988,7 +4965,7 @@ void _set_91car_67(void *data, object cont, object args) //return_closcall1(data, cont, Cyc_set_car(data, car(args), cadr(args))); Cyc_check_num_args(data, "set-car!", 2, args); //Cyc_set_car2(data, cont, car(args), cadr(args)); - return_closcall1(data, cont, Cyc_set_car2(data, cont, car(args), cadr(args))); + return_closcall1(data, cont, Cyc_set_car_cps(data, cont, car(args), cadr(args))); } void _set_91cdr_67(void *data, object cont, object args) @@ -4997,7 +4974,7 @@ void _set_91cdr_67(void *data, object cont, object args) //return_closcall1(data, cont, Cyc_set_cdr(data, car(args), cadr(args))); Cyc_check_num_args(data, "set-cdr!", 2, args); //Cyc_set_cdr2(data, cont, car(args), cadr(args)); - return_closcall1(data, cont, Cyc_set_cdr2(data, cont, car(args), cadr(args))); + return_closcall1(data, cont, Cyc_set_cdr_cps(data, cont, car(args), cadr(args))); } void _Cyc_91has_91cycle_127(void *data, object cont, object args) @@ -5417,7 +5394,7 @@ void _vector_91set_67(void *data, object cont, object args) { Cyc_check_num_args(data, "vector-set!", 3, args); { - object ref = Cyc_vector_set2(data, cont, car(args), cadr(args), caddr(args)); + object ref = Cyc_vector_set_cps(data, cont, car(args), cadr(args), caddr(args)); return_closcall1(data, cont, ref); }}