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

Allow Cyc-list to handle 0 args

Browse source
This commit is contained in:
Justin Ethier 2016-11-28 18:32:27 -05:00
parent 36e590610b
commit 71aaf162c9
3 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/cyclone/runtime.h
View file

@ -202,7 +202,7 @@ 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);
object Cyc_list2string(void *d, object cont, object lst);
object Cyc_list(void *data, int argc, object cont, object objs_raw, ...);
object Cyc_list(void *data, int argc, object cont, ...);
object Cyc_string2number_(void *d, object cont, object str);
object Cyc_string2number2_(void *data, object cont, int argc, object str, ...);
int binstr2int(const char *str);

8
runtime.c
View file

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

8
scheme/cyclone/transforms.sld
View file

@ -1303,9 +1303,11 @@
(list (cps-seq (cddr fn) ;(ast-subx fn)
cont-ast)))
vals)))
(if (equal? (lambda-formals-type fn) 'args:varargs)
(cons 'Cyc-list code) ;; Manually build up list
code)))))
(cond
((equal? (lambda-formals-type fn) 'args:varargs)
(cons 'Cyc-list code)) ;; Manually build up list
(else
code))))))
(else
(cps-list ast ;(ast-subx ast)
(lambda (args)