installer: Remove unused procedure.

NETWORKING-SYSTEM-SERVICE? was obsoleted in commit
2e55f37c0c8fdfbc413edff61490161648a78dcc.

* gnu/installer/services.scm (networking-system-service?): Remove it.

1 files changed, 2 insertions, 7 deletions

diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm
index ec5ea30594a..b0007218ae7 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))