2 files changed, 1 insertions(+), 7 deletions(-)

M gnu/services/herd.scm
M guix/scripts/system/reconfigure.scm

@@ 58,7 58,6 @@
             unload-services
             unload-service
             load-services
-            load-services/safe
             start-service
             stop-service
             restart-service


@@ 301,11 300,6 @@ returns a shepherd <service> object."
                                `(primitive-load ,file))
                              files)))))
 
-(define load-services/safe
-  ;; Deprecated.  It used to behave differently before service replacements
-  ;; were a thing.
-  load-services)
-
 (define* (start-service name #:optional (arguments '()))
   (invoke-action name 'start arguments
                  (lambda (result)

@@ 175,7 175,7 @@ canonical names (symbols)."
         ;; Silence messages coming from shepherd such as "Evaluating
         ;; expression ..." since they are unhelpful.
         (parameterize ((shepherd-message-port (%make-void-port "w")))
-          (load-services/safe '#$service-files))
+          (load-services '#$service-files))
 
         ;; Unload obsolete services and start new services.
         (for-each unload-service '#$to-unload)