mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
system: image: Make sure target is set.
* gnu/system/image.scm (system-image): Move "with-parameters" call so that it encapsulates "operating-system-bootcfg".
This commit is contained in:
parent
39b63d06e1
commit
c9f6e2e5bd
1 changed files with 8 additions and 8 deletions
|
@ -524,15 +524,15 @@ (define* (system-image image)
|
|||
"Return the derivation of IMAGE. It can be a raw disk-image or an ISO9660
|
||||
image, depending on IMAGE format."
|
||||
(define substitutable? (image-substitutable? image))
|
||||
(define target (image-target image))
|
||||
|
||||
(let* ((os (operating-system-for-image image))
|
||||
(image* (image-with-os image os))
|
||||
(target (image-target image))
|
||||
(register-closures? (has-guix-service-type? os))
|
||||
(bootcfg (operating-system-bootcfg os))
|
||||
(bootloader (bootloader-configuration-bootloader
|
||||
(operating-system-bootloader os))))
|
||||
(with-parameters ((%current-target-system target))
|
||||
(with-parameters ((%current-target-system target))
|
||||
(let* ((os (operating-system-for-image image))
|
||||
(image* (image-with-os image os))
|
||||
(register-closures? (has-guix-service-type? os))
|
||||
(bootcfg (operating-system-bootcfg os))
|
||||
(bootloader (bootloader-configuration-bootloader
|
||||
(operating-system-bootloader os))))
|
||||
(case (image-format image)
|
||||
((disk-image)
|
||||
(system-disk-image image*
|
||||
|
|
Loading…
Reference in a new issue