summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-05-31 21:54:28 +0200
committerLudovic Courtès <ludo@gnu.org>2015-05-31 22:39:48 +0200
commit23185ceadcb522c702cde28be2b5a7379d4ee9f1 (patch)
tree236817e55a5add90aa3be2a0ed9464badd6c1f93
parent97c15a297da3ecefcd0d4af902158cef239ff3b9 (diff)
ui: Do not call 'display-error' for SRFI-34 exceptions.
* guix/ui.scm (report-load-error, warn-about-load-error, read/eval): Add clause for SRFI-34 exceptions.
-rw-r--r--guix/ui.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index 2140c2e50b..94e2c4eecc 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -229,6 +229,8 @@ ARGS is the list of arguments received by the 'throw' handler."
(let ((loc (source-properties->location properties)))
(format (current-error-port) (_ "~a: error: ~a~%")
(location->string loc) message)))
+ (('srfi-34 obj)
+ (report-error (_ "exception thrown: ~s~%") obj))
((error args ...)
(report-error (_ "failed to load '~a':~%") file)
(apply display-error frame (current-error-port) args))))
@@ -244,6 +246,9 @@ exiting. ARGS is the list of arguments received by the 'throw' handler."
(let ((loc (source-properties->location properties)))
(format (current-error-port) (_ "~a: warning: ~a~%")
(location->string loc) message)))
+ (('srfi-34 obj)
+ (warning (_ "failed to load '~a': exception thrown: ~s~%")
+ file obj))
((error args ...)
(warning (_ "failed to load '~a':~%") file)
(apply display-error #f (current-error-port) args))))
@@ -450,6 +455,8 @@ interpreted."
(match args
(('syntax-error proc message properties form . rest)
(report-error (_ "syntax error: ~a~%") message))
+ (('srfi-34 obj)
+ (report-error (_ "exception thrown: ~s~%") obj))
((error args ...)
(apply display-error #f (current-error-port) args))
(what? #f))