[shepherd] 01/07: service: Remove unused 'make-service-group' macro.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 17a1de705bcd3d8524c5377112298fb4f96c2eb7
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Mar 23 23:31:37 2023 +0100

    service: Remove unused 'make-service-group' macro.
    
    * modules/shepherd/service.scm (make-service-group): Remove.
---
 modules/shepherd/service.scm | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index 0f97ca8..be416cd 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -75,7 +75,6 @@
             first-running
             lookup-running
             lookup-running-or-providing
-            make-service-group
             for-each-service
             lookup-services
             respawn-service
@@ -2079,20 +2078,6 @@ This must be paired with @code{make-systemd-destructor}."
       (((_ . (? port? socks)) ...)
        (for-each close-port socks)))))
 
-
-;; A group of service-names which can be provided (i.e. services
-;; providing them get started) and unprovided (same for stopping)
-;; together.  Not comparable with a real runlevel at all, but can be
-;; used to emulate a simple kind of runlevel.
-(define-syntax-rule (make-service-group NAME (SYM ...) ADDITIONS ...)
-  (make <service>
-    #:provides '(NAME)
-    #:requires '(SYM ...)
-    #:stop (lambda (running)
-            (for-each stop '(SYM ...))
-            #f)
-    ADDITIONS ...))
-