[shepherd] 01/08: Remove unused private procedure.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 28c8d3b0041dfbe2a8de2ceb6af6ea38e50e253d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Mar 16 09:03:14 2023 +0100

    Remove unused private procedure.
    
    * modules/shepherd.scm (start-in-order): Remove.
---
 modules/shepherd.scm | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/modules/shepherd.scm b/modules/shepherd.scm
index 1eae2e5..25863ea 100644
--- a/modules/shepherd.scm
+++ b/modules/shepherd.scm
@@ -424,26 +424,6 @@ already ~a threads running, disabling 'signalfd' support")
          #:parallelism 1                          ;don't create POSIX threads
          #:hz 0)))))       ;disable preemption, which would require POSIX 
threads
 
-;; Start all of SERVICES, which is a list of canonical names (FIXME?),
-;; but in a order where all dependencies are fulfilled before we
-;; attempt to start a service.  It is assumed that this is possible (FIXME?).
-;; FIXME: This procedure is untested!
-(define (start-in-order services)
-  ;; Same thing with an association list where the cdr of each pair is
-  ;; `#f' if the service is not yet started.
-  (define (start-in-order-assoc assoc-services)
-    (while (any not (map cdr assoc-services))
-      (for-each (lambda (x)
-                 (let ((service (car (lookup-services (car x)))))
-                   (and (not (cdr x))
-                        (depends-resolved? service)
-                        (set-cdr! x (start service)))))
-               assoc-services)))
-
-  (start-in-order-assoc (map (lambda (x)
-                              (cons x #f))
-                            services)))
-
 (define (process-connection sock)
   "Process client connection SOCK, reading and processing commands."
   (catch 'system-error