system: Fix typo in 'read-boot-parameters'.

Fixes a regression introduced in
commit 075681d350.

* gnu/system.scm (read-boot-parameters): For 'root-device', use
'device-sexp->device', not 'device->sexp'.
This commit is contained in:
Ludovic Courtès 2017-09-11 23:00:40 +02:00
parent 5f7fe1c57e
commit 7940188ebf
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -250,7 +250,7 @@ (define device-sexp->device
rest ...) rest ...)
(boot-parameters (boot-parameters
(label label) (label label)
(root-device (device->sexp root)) (root-device (device-sexp->device root))
(bootloader-name (bootloader-name
(match (assq 'bootloader-name rest) (match (assq 'bootloader-name rest)