me
/
guix
Archived
1
0
Fork 0
Code

system: 'operating-system-boot-parameters-file' uses 'scheme-file'. 

* gnu/system.scm (operating-system-boot-parameters-file): Use
'scheme-file' instead of 'gexp->file'.
(operating-system-directory-base-entries): Adjust accordingly.
master
Ludovic Courtès 2020-04-22 15:03:51 +02:00
parent 34faf63ebc
commit 2e37d1583a
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/system.scm
View File

@ -485,7 +485,7 @@ value of the SYSTEM-SERVICE-TYPE service."
(cons kernel modules))
#:hooks (list linux-module-database)))
(initrd -> (operating-system-initrd-file os))
(params (operating-system-boot-parameters-file os)))
(params -> (operating-system-boot-parameters-file os)))
(return `(("kernel" ,kernel)
("parameters" ,params)
("initrd" ,initrd)
@ -1078,7 +1078,7 @@ being stored into the \"parameters\" file)."
os device
#:system-kernel-arguments?
system-kernel-arguments?)))
(gexp->file "parameters"
(scheme-file "parameters"
#~(boot-parameters
(version 0)
(label #$(boot-parameters-label params))
@ -1098,7 +1098,8 @@ being stored into the \"parameters\" file)."
(store
(device
#$(device->sexp (boot-parameters-store-device params)))
(mount-point #$(boot-parameters-store-mount-point params))))
(mount-point #$(boot-parameters-store-mount-point
params))))
#:set-load-path? #f)))
(define-gexp-compiler (operating-system-compiler (os <operating-system>)