From d2952326ae18f50f6b3abefe0b12547556f9a1b8 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 2 Apr 2014 15:44:42 +0200 Subject: guix package: Register non-default profiles as GC roots. * guix/scripts/package.scm (maybe-register-gc-root): New procedure. * tests/guix-package.sh (profile): Grep the output of "guix gc --list-live" in a couple of places. --- guix/scripts/package.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'guix') diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 6069b203de..36d47348f1 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -723,6 +723,11 @@ removed from MANIFEST." (_ #f)) options)) +(define (maybe-register-gc-root store profile) + "Register PROFILE as a GC root, unless it doesn't need it." + (unless (string=? profile %current-profile) + (add-indirect-root store (canonicalize-path profile)))) + ;;; ;;; Entry point. @@ -915,6 +920,7 @@ more information.~%")) (let ((count (length entries))) (switch-symlinks name prof) (switch-symlinks profile name) + (maybe-register-gc-root (%store) profile) (format #t (N_ "~a package in profile~%" "~a packages in profile~%" count) -- cgit v1.2.3