From 51e21a6aa8bebba2b77db3f331e9493e0e80d82f Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 15 Nov 2009 02:53:02 -0600
Subject: [PATCH] update vm for startup branch

---
 vm/factor.cpp  | 2 +-
 vm/objects.hpp | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/vm/factor.cpp b/vm/factor.cpp
index c83e9cdb6b..525b2fa43e 100755
--- a/vm/factor.cpp
+++ b/vm/factor.cpp
@@ -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();
 }
 
diff --git a/vm/objects.hpp b/vm/objects.hpp
index 3eb2fdcce5..658f7eaa36 100644
--- a/vm/objects.hpp
+++ b/vm/objects.hpp
@@ -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,