[shepherd] 07/08: service: Make 'launch-service' private.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 7ff624c7900d4aacd7302c209bd15b6d99a907b9
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Mar 25 22:40:30 2023 +0100

    service: Make 'launch-service' private.
    
    * modules/shepherd/service.scm (launch-service): Remove 'proc'
    parameter and adjust caller.  Make it private.
---
 modules/shepherd/service.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index 1f0a0d3..5edacf1 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -70,7 +70,6 @@
             action
             doc
 
-            launch-service
             first-running
             lookup-running
             lookup-running-or-providing
@@ -1068,7 +1067,7 @@ service state and to send requests to the service 
monitor."
                  head
                  (loop (cdr lst)))))))))
 
-(define (launch-service name proc args)
+(define (launch-service name args)
   "Try to start (with PROC) a service providing NAME; return #f on failure.
 Used by `start'."
   (match (lookup-services name)
@@ -1079,12 +1078,12 @@ Used by `start'."
 
          ;; None running yet, start one.
          (find (lambda (service)
-                 (apply proc service args))
+                 (apply start service args))
                possibilities)))))
 
 ;; Starting by name.
 (define-method (start (obj <symbol>) . args)
-  (launch-service obj start args))
+  (launch-service obj args))
 
 ;; Stopping by name.
 (define-method (stop (obj <symbol>) . args)