From 1b3fa5bb34a50a25d35ae057d62ce3811840a4c8 Mon Sep 17 00:00:00 2001
From: moritz <moritz@twoticketsplease.de>
Date: Wed, 22 Feb 2012 19:30:41 +0100
Subject: properly handle errors thrown when loading the init file

---
 henrietta-cache.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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)
-- 
cgit v1.2.3