02/02: installer: Remove unused procedure.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit ed44e62636873d2b97eff06be70799a0f679bb2b
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Mon Jun 21 13:57:09 2021 +0200

    installer: Remove unused procedure.
    
    NETWORKING-SYSTEM-SERVICE? was obsoleted in commit
    2e55f37c0c8fdfbc413edff61490161648a78dcc.
    
    * gnu/installer/services.scm (networking-system-service?): Remove it.
---
 gnu/installer/services.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm
index ec5ea30..b000721 100644
--- a/gnu/installer/services.scm
+++ b/gnu/installer/services.scm
@@ -29,7 +29,6 @@
             system-service-packages
 
             desktop-system-service?
-            networking-system-service?
 
             %system-services
             system-services->configuration))
@@ -38,7 +37,7 @@
   system-service make-system-service
   system-service?
   (name            system-service-name)           ;string
-  (type            system-service-type)           ;'desktop | 'networking
+  (type            system-service-type)           ;'desktop|'networking|…
   (recommended?    system-service-recommended?    ;Boolean
                    (default #f))
   (snippet         system-service-snippet         ;list of sexps
@@ -46,7 +45,6 @@
   (packages        system-service-packages        ;list of sexps
                    (default '())))
 
-;; This is the list of desktop environments supported as services.
 (define %system-services
   (let-syntax ((desktop-environment (syntax-rules ()
                                       ((_ fields ...)
@@ -56,6 +54,7 @@
                (G_ (syntax-rules ()               ;for xgettext
                      ((_ str) str))))
     (list
+     ;; This is the list of desktop environments supported as services.
      (desktop-environment
       (name "GNOME")
       (snippet '((service gnome-desktop-service-type))))
@@ -124,10 +123,6 @@
   "Return true if SERVICE is a desktop environment service."
   (eq? 'desktop (system-service-type service)))
 
-(define (networking-system-service? service)
-  "Return true if SERVICE is a desktop environment service."
-  (eq? 'networking (system-service-type service)))
-
 (define (system-services->configuration services)
   "Return the configuration field for SERVICES."
   (let* ((snippets (append-map system-service-snippet services))