1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-12 10:00:46 +02:00

system: Fix typo, add doc.

* gnu/system.scm (operating-system-kernel-arguments): Fix typo in doc.
(boot-parameters->menu-entry): Add doc.
This commit is contained in:
Maxim Cournoyer 2022-06-02 17:19:03 -04:00
parent 2bcc6d5b1d
commit 1d0d46b1c7
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -300,7 +300,7 @@ VERSION is the target version of the boot-parameters record."
(define* (operating-system-kernel-arguments (define* (operating-system-kernel-arguments
os root-device #:key (version %boot-parameters-version)) os root-device #:key (version %boot-parameters-version))
"Return all the kernel arguments, including the ones not specified directly "Return all the kernel arguments, including the ones not specified directly
by the user. VERSION should match that of the target <boot-parameter> record by the user. VERSION should match that of the target <boot-parameters> record
object that will contain the kernel parameters." object that will contain the kernel parameters."
(append (bootable-kernel-arguments os root-device version) (append (bootable-kernel-arguments os root-device version)
(operating-system-user-kernel-arguments os))) (operating-system-user-kernel-arguments os)))
@ -515,6 +515,7 @@ The object has its kernel-arguments extended in order to make it bootable."
(boot-parameters-kernel-arguments params)))))) (boot-parameters-kernel-arguments params))))))
(define (boot-parameters->menu-entry conf) (define (boot-parameters->menu-entry conf)
"Return a <menu-entry> instance given CONF, a <boot-parameters> instance."
(let* ((kernel (boot-parameters-kernel conf)) (let* ((kernel (boot-parameters-kernel conf))
(multiboot-modules (boot-parameters-multiboot-modules conf)) (multiboot-modules (boot-parameters-multiboot-modules conf))
(multiboot? (pair? multiboot-modules))) (multiboot? (pair? multiboot-modules)))