[shepherd] 04/05: service: Remove special SRFI-34 exception handling for Guile 2.x.

[Ludovic Courtès]

civodul pushed a commit to branch devel
in repository shepherd.

commit 89cfdc249cf91571b11b8896259969e0d111ee33
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri May 10 22:58:05 2024 +0200

    service: Remove special SRFI-34 exception handling for Guile 2.x.
    
    This is a followup to b6f9c3406732019f301a77265a180d88e16d3b73.
    
    * modules/shepherd/service.scm (perform-service-action): Remove check
    for 'srfi-34 key.
---
 modules/shepherd/service.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index ce9cbb9..aba9c75 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -1121,9 +1121,7 @@ the action."
              (apply quit args))
 
         ;; Re-throw SRFI-34 exceptions that the caller will handle.
-        (cond ((eq? key 'srfi-34)                 ;Guile 2.x
-               (apply throw key args))
-              ((eq? key '%exception)              ;Guile 3.x
+        (cond ((eq? key '%exception)              ;Guile 3.x
                (raise-exception (car args)))
               (else
                (report-exception the-action service key args)))))))