Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed dead code

Browse source
This commit is contained in:
Justin Ethier 2016-04-04 23:23:28 -04:00
parent 096d1e8a77
commit c84db62a4a
2 changed files with 0 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/runtime.h
View file

@ -171,7 +171,6 @@ object Cyc_bytevector_u8_set(void *data, object bv, object k, object b);
object Cyc_utf82string(void *data, object cont, object bv, object start, object end);
object Cyc_string2utf8(void *data, object cont, object str, object start, object end);
object Cyc_list2vector(void *data, object cont, object l);
object Cyc_number2string(void *d, object cont, object n);
object Cyc_number2string2(void *data, object cont, int argc, object n, ...);
object Cyc_symbol2string(void *d, object cont, object sym) ;
object Cyc_string2symbol(void *d, object str);

17
runtime.c
View file

@ -1051,23 +1051,6 @@ object Cyc_length(void *data, object l){
return obj_int2obj(len);
}
object Cyc_number2string(void *data, object cont, object n) {
char buffer[1024];
Cyc_check_num(data, n);
if (obj_is_int(n)) {
snprintf(buffer, 1024, "%ld", obj_obj2int(n));
}else if (type_of(n) == integer_tag) {
snprintf(buffer, 1024, "%d", ((integer_type *)n)->value);
} else if (type_of(n) == double_tag) {
snprintf(buffer, 1024, "%f", ((double_type *)n)->value);
} else {
Cyc_rt_raise2(data, "number->string - Unexpected object", n);
}
//make_string_noalloc(str, buffer, strlen(buffer));
make_string(str, buffer);
return_closcall1(data, cont, &str);
}
char *int_to_binary(char *b, int x)
{
b[0] = '\0';