update vm for startup branch

db4
Doug Coleman 2009-11-15 02:53:02 -06:00
parent cc194416f9
commit 51e21a6aa8
2 changed files with 2 additions and 1 deletions

View File

@ -174,7 +174,7 @@ void factor_vm::start_factor(vm_parameters *p)
void factor_vm::stop_factor()
{
nest_stacks(NULL);
c_to_factor_toplevel(userenv[SHUTDOWN_ENV]);
c_to_factor_toplevel(special_objects[OBJ_SHUTDOWN]);
unnest_stacks();
}

View File

@ -34,6 +34,7 @@ enum special_object {
OBJ_BOOT = 20, /* boot quotation */
OBJ_GLOBAL, /* global namespace */
OBJ_SHUTDOWN,
/* Quotation compilation in quotations.c */
JIT_PROLOG = 23,