diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-05-31 21:54:28 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-05-31 22:39:48 +0200 |
| commit | 23185ceadcb522c702cde28be2b5a7379d4ee9f1 (patch) | |
| tree | 236817e55a5add90aa3be2a0ed9464badd6c1f93 | |
| parent | 97c15a297da3ecefcd0d4af902158cef239ff3b9 (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.scm | 7 |
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)) |