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 ; continuations parser.notes namespaces ;
[ [
@ -6,6 +6,7 @@ continuations parser.notes namespaces ;
t parser-quiet? set-global t parser-quiet? set-global
boot boot
do-startup-hooks [ do-startup-hooks command-line-startup ]
[ command-line-startup ] [ print-error 1 exit ] recover [ print-error :c flush 1 exit ]
recover
] set-startup-quot ] set-startup-quot