diff options
author | Peter Bex <peter@more-magic.net> | 2012-02-23 09:29:45 +0100 |
---|---|---|
committer | Peter Bex <peter@more-magic.net> | 2012-02-23 09:29:45 +0100 |
commit | 1ab3985441912e1e5355ca556da2680e26c20bcb (patch) | |
tree | 0099e30aa5d5daa43cb4774cbc9b86465f68101c | |
parent | d1fdca00933d07a81debf6631bb55a6074458222 (diff) | |
parent | 1b3fa5bb34a50a25d35ae057d62ce3811840a4c8 (diff) | |
download | henrietta-cache-1ab3985441912e1e5355ca556da2680e26c20bcb.tar.gz |
Merged in DerGuteMoritz/henrietta-cache/handle-init-file-errors (pull request #4)
-rw-r--r-- | henrietta-cache.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/henrietta-cache.scm b/henrietta-cache.scm index 8f63bba..f12efa9 100644 --- a/henrietta-cache.scm +++ b/henrietta-cache.scm @@ -230,7 +230,11 @@ EOF (define (update-egg-cache) (when *init-file* - (load *init-file*)) + (handle-exceptions exn + (begin + (fprintf (current-error-port) "Error loading init file ~A:\n" *init-file*) + (print-error-message exn (current-error-port))) + (load *init-file*))) (for-each (lambda (egg) |