Saving the image performs a code GC
parent
c59dab2b9b
commit
d505cf6b50
|
@ -116,7 +116,7 @@ void primitive_save_image(void)
|
||||||
{
|
{
|
||||||
F_STRING* filename;
|
F_STRING* filename;
|
||||||
/* do a full GC to push everything into tenured space */
|
/* do a full GC to push everything into tenured space */
|
||||||
garbage_collection(TENURED,false);
|
garbage_collection(TENURED,true);
|
||||||
filename = untag_string(dpop());
|
filename = untag_string(dpop());
|
||||||
save_image(to_char_string(filename,true));
|
save_image(to_char_string(filename,true));
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue