system: Remove circular dependency between (gnu system) and (gnu system grub).
Followup to 087efec496
.
* gnu/system.scm: (operating-system-bootcfg): Refer to (gnu system grub)
by module-ref.
This commit is contained in:
parent
c5196ac7ee
commit
f000828575
|
@ -847,9 +847,11 @@ populate the \"old entries\" menu."
|
||||||
(uuid->string (file-system-device root-fs))
|
(uuid->string (file-system-device root-fs))
|
||||||
(file-system-device root-fs)))
|
(file-system-device root-fs)))
|
||||||
(entry (operating-system-boot-parameters os system root-device)))
|
(entry (operating-system-boot-parameters os system root-device)))
|
||||||
((@@ (gnu system grub) grub-configuration-file) (operating-system-bootloader os)
|
((module-ref (resolve-interface '(gnu system grub))
|
||||||
(list entry)
|
'grub-configuration-file)
|
||||||
#:old-entries old-entries)))
|
(operating-system-bootloader os)
|
||||||
|
(list entry)
|
||||||
|
#:old-entries old-entries)))
|
||||||
|
|
||||||
(define (fs->boot-device fs)
|
(define (fs->boot-device fs)
|
||||||
"Given FS, a <file-system> object, return a value suitable for use as the
|
"Given FS, a <file-system> object, return a value suitable for use as the
|
||||||
|
|
Loading…
Reference in New Issue