summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2012-02-23 09:29:45 +0100
committerPeter Bex <peter@more-magic.net>2012-02-23 09:29:45 +0100
commit1ab3985441912e1e5355ca556da2680e26c20bcb (patch)
tree0099e30aa5d5daa43cb4774cbc9b86465f68101c
parentd1fdca00933d07a81debf6631bb55a6074458222 (diff)
parent1b3fa5bb34a50a25d35ae057d62ce3811840a4c8 (diff)
downloadhenrietta-cache-1ab3985441912e1e5355ca556da2680e26c20bcb.tar.gz
Merged in DerGuteMoritz/henrietta-cache/handle-init-file-errors (pull request #4)
-rw-r--r--henrietta-cache.scm6
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)