[shepherd] 06/06: service: Remove unused ‘find-service’ procedure.

[Ludovic Courtès]

civodul pushed a commit to branch devel
in repository shepherd.

commit 2be2050f7e2c3f2b18310793bedf18d9e6d96691
Author: Ludovic Courtès <ludo@gnu.org>
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)