[shepherd] 01/03: service: ‘service-name-count’ no longer times out.

[Ludovic Courtès]

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)))