[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[shepherd] 01/03: service: ‘service-name-count’ no longer times out.
From: |
Ludovic Courtès |
Subject: |
[shepherd] 01/03: service: ‘service-name-count’ no longer times out. |
Date: |
Fri, 15 Dec 2023 11:51:16 -0500 (EST) |
civodul pushed a commit to branch master
in repository shepherd.
commit d5f25f2c115c6eb0a83dd6ededf5a337ec000ec2
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Dec 15 17:08:23 2023 +0100
service: ‘service-name-count’ no longer times out.
In the event it would time out and return 'no-reply,
‘service-name-count’ would let the registry block on a ‘put-message’
that would never complete. Thus, don’t do that.
* modules/shepherd/service.scm (service-name-count): Use ‘get-message’
instead of ‘get-message*’.
---
modules/shepherd/service.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index c3bdf44..0bfb064 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -2267,7 +2267,7 @@ returned in unspecified."
(let ((reply (make-channel)))
(put-message (current-registry-channel)
`(service-name-count ,reply))
- (get-message* reply 5 'no-reply)))
+ (get-message reply)))
(define find-service
(let ((reply (make-channel)))