Use debugger to print an error if startup hook fails; fixes #39

db4
Slava Pestov 2011-09-11 23:37:00 -07:00
parent 9b23085c95
commit 7d99ff0900
1 changed files with 4 additions and 3 deletions

View File

@ -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