09/19: services: herd: 'load-services/safe' is synonymous with 'load-services'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 95731b4ef1991f5b85aa9ec9d4fb97c006bec65d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Apr 21 00:11:52 2023 +0200

    services: herd: 'load-services/safe' is synonymous with 'load-services'.
    
    This is a followup to 547965aa27b6a09cadf42130b7ec7db3f1aee61f.
    
    * gnu/services/herd.scm (load-services/safe): Make an alias for
    'load-services'.
---
 gnu/services/herd.scm | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm
index e489ce2b9a..48594015fc 100644
--- a/gnu/services/herd.scm
+++ b/gnu/services/herd.scm
@@ -282,14 +282,10 @@ returns a shepherd <service> object."
                          `(primitive-load ,file))
                        files))))
 
-(define (load-services/safe files)
-  "This is like 'load-services', but make sure only the subset of FILES that
-can be safely reloaded is actually reloaded."
-  (eval-there `(let ((services (map primitive-load ',files)))
-                 ;; Since version 0.5.0 of the Shepherd, registering a service
-                 ;; that has the same name as an already-registered service
-                 ;; makes it a "replacement" of that previous service.
-                 (apply register-services services))))
+(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