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

Allow varargs for make-vector in icyc

Browse source
This commit is contained in:
Justin Ethier 2015-06-01 21:07:46 -04:00
parent 71dad6366f
commit 6c3eeb226a
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
runtime.c
View file

@ -1101,8 +1101,13 @@ void _string_91_125list(object cont, object args) {
string2list(lst, car(args)); string2list(lst, car(args));
return_funcall1(cont, &lst);} return_funcall1(cont, &lst);}
void _make_91vector(object cont, object args) { void _make_91vector(object cont, object args) {
make_vector(v, car(args), cadr(args)); integer_type argc = Cyc_length(args);
return_funcall1(cont, v);} if (argc.value >= 2) {
make_vector(v, car(args), cadr(args));
return_funcall1(cont, v);}
else {
make_vector(v, car(args), boolean_f);
return_funcall1(cont, v);}}
void _list_91_125string(object cont, object args) { void _list_91_125string(object cont, object args) {
string_type s = Cyc_list2string(car(args)); string_type s = Cyc_list2string(car(args));
return_funcall1(cont, &s);} return_funcall1(cont, &s);}
@ -1303,7 +1308,7 @@ char *transport(x, gcgen) char *x; int gcgen;
x = (char *) nx; allocp = ((char *) nx)+sizeof(closureN_type) + sizeof(object) * nx->num_elt; x = (char *) nx; allocp = ((char *) nx)+sizeof(closureN_type) + sizeof(object) * nx->num_elt;
return (char *) nx;} return (char *) nx;}
case vector_tag: case vector_tag:
{register vector_type nx = (vector) allocp; {register vector nx = (vector) allocp;
int i; int i;
type_of(nx) = vector_tag; type_of(nx) = vector_tag;
nx->num_elt = ((vector) x)->num_elt; nx->num_elt = ((vector) x)->num_elt;