Commits

Anonymous committed af2e4bd

properly handle errors thrown when loading the init file

Comments (0)

Files changed (1)

 
 (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)