diff options
author | Andreas Enge <andreas@enge.fr> | 2023-04-22 09:21:22 +0200 |
---|---|---|
committer | Andreas Enge <andreas@enge.fr> | 2023-04-22 09:21:22 +0200 |
commit | d1252b597d8b6c77746da7b7417d958f00d01dc6 (patch) | |
tree | e2cdc9b0938e5ed7ac1b095b83c5760bbedecb87 /gnu/services/herd.scm | |
parent | 3f7ae420d8a54d4e2ab7f349c40d8930fe9e0771 (diff) | |
parent | 040d35f088e0f1c856f3f5a9b6bf889b17bd68b3 (diff) |
Merge remote-tracking branch 'origin/master' into core-updates
Diffstat (limited to 'gnu/services/herd.scm')
-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 |