Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added Cyc_list()

Browse source
This commit is contained in:
Justin Ethier 2016-11-28 18:11:36 -05:00
parent 1cb1b6e89f
commit 5790716927
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/runtime.h
View file

@ -202,6 +202,7 @@ object Cyc_number2string2(void *data, object cont, int argc, object n, ...);
object Cyc_symbol2string(void *d, object cont, object sym); object Cyc_symbol2string(void *d, object cont, object sym);
object Cyc_string2symbol(void *d, object str); object Cyc_string2symbol(void *d, object str);
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 objs_raw, ...);
object Cyc_string2number_(void *d, object cont, object str); object Cyc_string2number_(void *d, object cont, object str);
object Cyc_string2number2_(void *data, object cont, int argc, object str, ...); object Cyc_string2number2_(void *data, object cont, int argc, object str, ...);
int binstr2int(const char *str); int binstr2int(const char *str);

7
runtime.c
View file

@ -1629,6 +1629,13 @@ object Cyc_list2string(void *data, object cont, object lst)
} }
} }
object Cyc_list(void *data, int argc, object cont, object objs_raw, ...)
{
load_varargs(objs, objs_raw, argc - 1);
//Cyc_st_add(data, "scheme/base.sld:list");
_return_closcall1(data, cont, 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;