From 88d4a9c2be12a754a99b3c4f8dc125a33be70927 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 26 Jun 2018 14:22:27 +0200
Subject: [PATCH] vm: 'make-iso9660-image' makes 'grub.cfg' a GC root.

* gnu/build/vm.scm (make-iso9660-image): Add call to
'register-bootcfg-root'.
---
 gnu/build/vm.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm
index a835c4204a..abecc8c470 100644
--- a/gnu/build/vm.scm
+++ b/gnu/build/vm.scm
@@ -438,7 +438,8 @@ GRUB configuration and OS-DRV as the stuff in it."
                  ;; to modify it.
                  #:deduplicate? #f
                  #:reset-timestamps? #f))
-              closures))
+              closures)
+    (register-bootcfg-root "/tmp/root" config-file))
 
   (let ((pipe
          (apply open-pipe* OPEN_WRITE