diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2017-05-08 22:16:55 +0200 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2017-05-08 23:00:16 +0200 |
| commit | f000828575d6fe16e774162051d29b9ed025414d (patch) | |
| tree | e011d11ccf64fb93158a0c957104e1a4169a2881 | |
| parent | c5196ac7ee668a65c0cfda25ce354b826b15435c (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.scm | 8 |
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 |