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

Cleanup

Browse source
This commit is contained in:
Justin Ethier 2015-08-21 02:06:32 -04:00
parent 0697ee0061
commit 59ab5582cc
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -1965,8 +1965,10 @@ void Cyc_apply_from_buf(int argc, object prim, object *buf) {
apply(cont, prim, (object)&args[0]); apply(cont, prim, (object)&args[0]);
} }
/**
* Copy an object to the GC heap
*/
char *transport(x, gcgen) char *x; int gcgen; char *transport(x, gcgen) char *x; int gcgen;
/* Transport one object. WARNING: x cannot be nil!!! */
{ {
if (nullp(x)) return x; if (nullp(x)) return x;
if (obj_is_char(x)) return x; if (obj_is_char(x)) return x;