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

[factor.git] / basis / bootstrap / finish-staging.factor

diff --git a/basis/bootstrap/finish-staging.factor b/basis/bootstrap/finish-staging.factor
index e75f0fa5c5e76893289b5c01185e3d1acac880d8..10d81d6ff6e9ec6f173a6193e82dd5551166aee2 100644 (file)
--- a/basis/bootstrap/finish-staging.factor
+++ b/basis/bootstrap/finish-staging.factor
@@ -3,9 +3,10 @@ io ;
 
 [
     boot
-    do-startup-hooks
-    (command-line) parse-command-line
-    "run" get run
-    output-stream get [ stream-flush ] when*
-    0 exit
+    [
+        do-startup-hooks
+        (command-line) parse-command-line
+        "run" get run
+        output-stream get [ stream-flush ] when*
+    ] with-destructors 0 exit
 ] set-boot-quot