civodul pushed a commit to branch devel
in repository shepherd.
commit 2be2050f7e2c3f2b18310793bedf18d9e6d96691
Author: Ludovic Courtès <[email protected]>
AuthorDate: Sun Apr 28 15:27:33 2024 +0200
service: Remove unused ‘find-service’ procedure.
* modules/shepherd/service.scm (find-service): Remove.
---
modules/shepherd/service.scm | 12 ------------
1 file changed, 12 deletions(-)
diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index a0a4db9..935beab 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -39,7 +39,6 @@
#:use-module (srfi srfi-34)
#:use-module ((srfi srfi-35) #:hide (make-condition))
#:use-module ((rnrs io ports) #:select (get-string-all))
- #:use-module ((ice-9 control) #:select (call/ec))
#:use-module (ice-9 match)
#:use-module (ice-9 format)
#:use-module (ice-9 vlist)
@@ -2345,17 +2344,6 @@ returned in unspecified."
`(service-name-count ,reply))
(get-message reply)))
-(define find-service
- (let ((reply (make-channel)))
- (lambda (pred)
- "Return the first service that matches PRED, or #f if none was found."
- (call/ec
- (lambda (return)
- (fold-services (lambda (service _)
- (and (pred service)
- (return service)))
- #f))))))
-
(define lookup-service
(let ((reply (make-channel)))
(lambda (name)
