From 23185ceadcb522c702cde28be2b5a7379d4ee9f1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 31 May 2015 21:54:28 +0200 Subject: [PATCH] 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. --- guix/ui.scm | 7 +++++++ 1 file changed, 7 insertions(+) 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))