From 27cab84c6d598d5bb53bf136d78e7a2b0e8e0269 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 25 Sep 2013 23:05:33 +0200
Subject: [PATCH] gnu: vm: Register the profile as a GC root.

* gnu/system/vm.scm (system-qemu-image): Register PROFILE as a GC root.
---
 gnu/system/vm.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 0cab3ced17..dd97e5ee0d 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -515,7 +515,9 @@ You can log in as 'root' with no password.
                        ("/etc/login.defs" -> "/dev/null")
                        ("/etc/pam.d" -> ,pam.d)
                        ("/etc/profile" -> ,bashrc)
-                       ("/etc/issue" -> ,issue)))
+                       ("/etc/issue" -> ,issue)
+                       (directory "/var/nix/gcroots")
+                       ("/var/nix/gcroots/default-profile" -> ,profile)))
            (out     (derivation->output-path
                      (package-derivation store mingetty)))
            (boot    (add-text-to-store store "boot"