From f000828575d6fe16e774162051d29b9ed025414d Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Mon, 8 May 2017 22:16:55 +0200 Subject: [PATCH] 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 baba0b5dfc..9fc6cc5e76 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -847,9 +847,11 @@ (define* (operating-system-bootcfg os #:optional (old-entries '())) (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 object, return a value suitable for use as the