summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-09-11 23:00:40 +0200
committerLudovic Courtès <ludo@gnu.org>2017-09-11 23:00:40 +0200
commit7940188ebfb28fc36426924b16fdc8255a88acaf (patch)
treef11f3d3ad0069da1c9439e84634daa7f9f1a1f45
parent5f7fe1c57ecb9525aa7e13e38af2aab022bae078 (diff)
downloadguix-7940188ebfb28fc36426924b16fdc8255a88acaf.tar.gz
system: Fix typo in 'read-boot-parameters'.
Fixes a regression introduced in
commit 075681d3501082c6e22df8abf29dfe89d85effc1.

* gnu/system.scm (read-boot-parameters): For 'root-device', use
'device-sexp->device', not 'device->sexp'.
-rw-r--r--gnu/system.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/system.scm b/gnu/system.scm
index 6f795d6292..bb7e8531ee 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -250,7 +250,7 @@ directly by the user."
                        rest ...)
      (boot-parameters
       (label label)
-      (root-device (device->sexp root))
+      (root-device (device-sexp->device root))
 
       (bootloader-name
        (match (assq 'bootloader-name rest)