steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vm/factor.cpp
View File

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

1
vm/objects.hpp
View File

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