Fixes to bootstrap-error.factor and finish-staging.factor

diff --git a/basis/bootstrap/bootstrap-error.factor b/basis/bootstrap/bootstrap-error.factor
index 01eb002e447df51288fad9e384028dcd3548aaf6..7cae86b18672d4018ac209f203c45dca331900e7 100644 (file)
--- a/basis/bootstrap/bootstrap-error.factor
+++ b/basis/bootstrap/bootstrap-error.factor
@@ -2,7 +2,8 @@ USING: continuations kernel io debugger vocabs words system namespaces ;
 
 :c
 :error
+
 "listener" vocab
 [ restarts. vocab-main execute ]
-[ die ] if*
+[ error get die ] if*
 1 exit

diff --git a/basis/bootstrap/finish-staging.factor b/basis/bootstrap/finish-staging.factor
index 10d81d6ff6e9ec6f173a6193e82dd5551166aee2..348d6797c90ecc2cc572c257f068b60c720c94f7 100644 (file)
--- a/basis/bootstrap/finish-staging.factor
+++ b/basis/bootstrap/finish-staging.factor
@@ -1,5 +1,5 @@
-USING: init command-line system namespaces kernel vocabs.loader
-io ;
+USING: destructors init command-line system namespaces kernel
+vocabs.loader io ;
 
 [
     boot