run bootstrap and startup hooks inside a with-destructors. use &dispose instead...

[factor.git] / core / bootstrap / stage1.factor

diff --git a/core/bootstrap/stage1.factor b/core/bootstrap/stage1.factor
index 6dab0f416289568123df9b314a10525aa73b4a6e..1e8ebe2938cfa9c3c7c7329cca3ad1f1eb830e3e 100644 (file)
--- a/core/bootstrap/stage1.factor
+++ b/core/bootstrap/stage1.factor
@@ -3,7 +3,7 @@
 USING: arrays assocs continuations debugger generic hashtables
 init io io.files kernel kernel.private make math memory
 namespaces parser prettyprint sequences splitting system
-vectors vocabs vocabs.loader words ;
+vectors vocabs vocabs.loader words destructors ;
 QUALIFIED: bootstrap.image.private
 IN: bootstrap.stage1
 
@@ -42,7 +42,7 @@ load-help? off
     [
         "resource:basis/bootstrap/stage2.factor"
         dup exists? [
-            run-file
+            [ run-file ] with-destructors
         ] [
             "Cannot find " write write "." print
             "Please move " write image write " to the same directory as the Factor sources," print