From a316998d212895b7be1e92c05fb203b68851a5d0 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 11 Sep 2011 23:37:00 -0700
Subject: [PATCH] Use debugger to print an error if startup hook fails; fixes
 #39

---
 basis/bootstrap/finish-bootstrap.factor | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/basis/bootstrap/finish-bootstrap.factor b/basis/bootstrap/finish-bootstrap.factor
index a8b68ba419..3f583599a0 100644
--- a/basis/bootstrap/finish-bootstrap.factor
+++ b/basis/bootstrap/finish-bootstrap.factor
@@ -1,4 +1,4 @@
-USING: init command-line.startup debugger system
+USING: init io command-line.startup debugger system
 continuations parser.notes namespaces ;
 
 [
@@ -6,6 +6,7 @@ continuations parser.notes namespaces ;
     t parser-quiet? set-global
     
     boot
-    do-startup-hooks
-    [ command-line-startup ] [ print-error 1 exit ] recover
+    [ do-startup-hooks command-line-startup ]
+    [ print-error :c flush 1 exit ]
+    recover
 ] set-startup-quot