summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-04-21 00:11:52 +0200
committerLudovic Courtès <ludo@gnu.org>2023-04-21 16:16:37 +0200
commit95731b4ef1991f5b85aa9ec9d4fb97c006bec65d (patch)
tree30faa56e982879b2cdaae40465af896643ee37d1 /gnu
parent9385c82c5471754635b4d2e90a3a77a7e91d7275 (diff)
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'.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/services/herd.scm12
1 files 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