02/05: ui: Adjust SRFI-34 exception handling to Guile 2.9.5.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 7f3bbfaf8ec3b96e02e0cf74e7515ac33c002107
Author: Ludovic Courtès <address@hidden>
Date:   Tue Nov 26 12:21:26 2019 +0100

    ui: Adjust SRFI-34 exception handling to Guile 2.9.5.
    
    * guix/ui.scm (report-load-error, warn-about-load-error)
    (read/eval): Match (or 'srfi-34 '%exception) instead of just 'srfi-34 to
    match what Guile 2.9.5 does.
---
 guix/ui.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/ui.scm b/guix/ui.scm
index eb17d27..12611cb 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -372,7 +372,7 @@ ARGS is the list of arguments received by the 'throw' 
handler."
        (report-error loc (G_ "~a~%") message)))
     (('unbound-variable _ ...)
      (report-unbound-variable-error args #:frame frame))
-    (('srfi-34 obj)
+    (((or 'srfi-34 '%exception) obj)
      (if (message-condition? obj)
          (report-error (and (error-location? obj)
                             (error-location obj))
@@ -404,7 +404,7 @@ exiting.  ARGS is the list of arguments received by the 
'throw' handler."
        (warning loc (G_ "~a~%") message)))
     (('unbound-variable _ ...)
      (report-unbound-variable-error args))
-    (('srfi-34 obj)
+    (((or 'srfi-34 '%exception) obj)
      (if (message-condition? obj)
          (warning (G_ "failed to load '~a': ~a~%")
                   file
@@ -813,7 +813,7 @@ similar."
         (match args
           (('syntax-error proc message properties form . rest)
            (report-error (G_ "syntax error: ~a~%") message))
-          (('srfi-34 obj)
+          (((or 'srfi-34 '%exception) obj)
            (if (message-condition? obj)
                (report-error (G_ "~a~%")
                              (gettext (condition-message obj)