01/01: system: Remove circular dependency between (gnu system) and (gnu system grub).

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit f000828575d6fe16e774162051d29b9ed025414d
Author: Danny Milosavljevic <address@hidden>
Date:   Mon May 8 22:16:55 2017 +0200

    system: Remove circular dependency between (gnu system) and (gnu system 
grub).
    
    Followup to 087efec496b91e3763be2e11e208d4a8f4ef3d43.
    
    * gnu/system.scm: (operating-system-bootcfg): Refer to (gnu system grub)
    by module-ref.
---
 gnu/system.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/system.scm b/gnu/system.scm
index baba0b5..9fc6cc5 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -847,9 +847,11 @@ populate the \"old entries\" menu."
                            (uuid->string (file-system-device root-fs))
                            (file-system-device root-fs)))
        (entry (operating-system-boot-parameters os system root-device)))
-    ((@@ (gnu system grub) grub-configuration-file) 
(operating-system-bootloader os)
-                             (list entry)
-                              #:old-entries old-entries)))
+    ((module-ref (resolve-interface '(gnu system grub))
+                 'grub-configuration-file)
+     (operating-system-bootloader os)
+     (list entry)
+     #:old-entries old-entries)))
 
 (define (fs->boot-device fs)
   "Given FS, a <file-system> object, return a value suitable for use as the