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

2009-11-16 01:14:24 -06:00 · 2009-11-16 01:14:24 -06:00 · 64c209b5c9
parent cf35ffb126
commit 64c209b5c9
2 changed files with 4 additions and 3 deletions
--- 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
--- 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