summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2017-05-08 22:16:55 +0200
committerDanny Milosavljevic <dannym@scratchpost.org>2017-05-08 23:00:16 +0200
commitf000828575d6fe16e774162051d29b9ed025414d (patch)
treee011d11ccf64fb93158a0c957104e1a4169a2881
parentc5196ac7ee668a65c0cfda25ce354b826b15435c (diff)
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.
-rw-r--r--gnu/system.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/gnu/system.scm b/gnu/system.scm
index baba0b5dfc..9fc6cc5e76 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