[shepherd] 04/08: squash! service: Use 'lookup-service' instead of 'lookup-services'.

[Ludovic Courtès]

civodul pushed a commit to branch wip-goopsless
in repository shepherd.

commit e2362c2a0484f6dc8f500f69ed4c1e67eeaad09e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Apr 11 23:13:47 2023 +0200

    squash! service: Use 'lookup-service' instead of 'lookup-services'.
    
    * modules/shepherd/service.scm (start-in-parallel): Likewise.
---
 modules/shepherd/service.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index 9ca96ba..8bb0fc1 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -683,11 +683,11 @@ that could not be started."
   (parameterize ((%one-shot-services-started
                   (or (%one-shot-services-started)
                       (make-hash-table))))
-    (let ((services (append-map (lambda (service)
-                                  (if (symbol? service)
-                                      (lookup-services service)
-                                      (list service)))
-                                services))
+    (let ((services (map (lambda (service)
+                           (if (symbol? service)
+                               (lookup-service service)
+                               service))
+                         services))
           (channel  (make-channel)))
       (for-each (lambda (service)
                   (spawn-fiber