civodul pushed a commit to branch devel
in repository shepherd.
commit 89cfdc249cf91571b11b8896259969e0d111ee33
Author: Ludovic Courtès <l...@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)))))))
