[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[shepherd] 02/05: system: 'without-automatic-finalization' accepts sever
|
From: |
Ludovic Courtès |
|
Subject: |
[shepherd] 02/05: system: 'without-automatic-finalization' accepts several expressions on 2.0. |
|
Date: |
Mon, 20 Apr 2020 16:11:28 -0400 (EDT) |
civodul pushed a commit to branch master
in repository shepherd.
commit 960e305a732da45b7801e690a5d25f4a996cfb4f
Author: Ludovic Courtès <address@hidden>
AuthorDate: Mon Apr 20 15:10:47 2020 +0200
system: 'without-automatic-finalization' accepts several expressions on 2.0.
* modules/shepherd/system.scm.in (without-automatic-finalization)
[!guile-2.2]: Add ellipsis.
---
modules/shepherd/system.scm.in | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/modules/shepherd/system.scm.in b/modules/shepherd/system.scm.in
index 64e4502..5594adf 100644
--- a/modules/shepherd/system.scm.in
+++ b/modules/shepherd/system.scm.in
@@ -213,7 +213,7 @@ Turning finalization off shuts down the finalization thread
as a side effect."
(%set-automatic-finalization-enabled?! enabled?))))))
(else
- (define-syntax-rule (without-automatic-finalization exp)
+ (define-syntax-rule (without-automatic-finalization exp ...)
;; Nothing to do here: Guile 2.0 does not have a separate finalization
;; thread.
- exp)))
+ (begin exp ...))))