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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-03-14 22:59:45 +00:00
parent dbe8597e90
commit 8efb714097
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scheme/base.sld
View file

@ -957,6 +957,7 @@
"(void *data, int argc, closure _, object k, object obj)" "(void *data, int argc, closure _, object k, object obj)"
" make_pair(p, obj, NULL); " make_pair(p, obj, NULL);
gc_thread_data *thd = (gc_thread_data *)data; gc_thread_data *thd = (gc_thread_data *)data;
//Cyc_global_set(thd, thd->param_objs, &p); // TODO: needed?? seems to be segfauling, though
cdr(&p) = thd->param_objs; cdr(&p) = thd->param_objs;
thd->param_objs = (object)(&p); thd->param_objs = (object)(&p);
return_closcall1(data, k, thd->param_objs); ") return_closcall1(data, k, thd->param_objs); ")