summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'guix/scripts')
-rw-r--r--guix/scripts/system.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 80f62fb109..bcf19dbb7e 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -298,9 +298,14 @@ needs to be loaded."
(service (and (not (live-service-running service))
service))))
+ (define live-service-dependents
+ (shepherd-service-back-edges live
+ #:provision live-service-provision
+ #:requirement live-service-requirement))
+
(define (obsolete? service)
(match (lookup-target (first (live-service-provision service)))
- (#f #t)
+ (#f (every obsolete? (live-service-dependents service)))
(_ #f)))
(define to-load