diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-04-21 00:11:52 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-04-21 16:16:37 +0200 |
commit | 95731b4ef1991f5b85aa9ec9d4fb97c006bec65d (patch) | |
tree | 30faa56e982879b2cdaae40465af896643ee37d1 /gnu | |
parent | 9385c82c5471754635b4d2e90a3a77a7e91d7275 (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.scm | 12 |
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 |