diff options
Diffstat (limited to 'gnu/bootloader')
| -rw-r--r-- | gnu/bootloader/grub.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gnu/bootloader/grub.scm b/gnu/bootloader/grub.scm index 611580a3508..f1479024e64 100644 --- a/gnu/bootloader/grub.scm +++ b/gnu/bootloader/grub.scm | |||
| @@ -421,11 +421,12 @@ set lang=~a~%" locale)))) | |||
| 421 | (bootloader-configuration-bootloader config))) | 421 | (bootloader-configuration-bootloader config))) |
| 422 | (keymap* (and layout | 422 | (keymap* (and layout |
| 423 | (keyboard-layout-file layout #:grub grub))) | 423 | (keyboard-layout-file layout #:grub grub))) |
| 424 | (entry (first all-entries)) | ||
| 425 | (device (menu-entry-device entry)) | ||
| 426 | (mount-point (menu-entry-device-mount-point entry)) | ||
| 424 | (keymap (and keymap* | 427 | (keymap (and keymap* |
| 425 | (if store-directory-prefix | 428 | (normalize-file keymap* mount-point |
| 426 | #~(string-append #$store-directory-prefix | 429 | store-directory-prefix)))) |
| 427 | #$keymap*) | ||
| 428 | keymap*)))) | ||
| 429 | #~(when #$keymap | 430 | #~(when #$keymap |
| 430 | (format port "\ | 431 | (format port "\ |
| 431 | insmod keylayouts | 432 | insmod keylayouts |
