diff options
Diffstat (limited to 'gnu/bootloader/extlinux.scm')
| -rw-r--r-- | gnu/bootloader/extlinux.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gnu/bootloader/extlinux.scm b/gnu/bootloader/extlinux.scm index 2bb711eed13..40108584a8f 100644 --- a/gnu/bootloader/extlinux.scm +++ b/gnu/bootloader/extlinux.scm | |||
| @@ -91,11 +91,9 @@ TIMEOUT ~a~%" | |||
| 91 | (for-each (lambda (file) | 91 | (for-each (lambda (file) |
| 92 | (install-file file install-dir)) | 92 | (install-file file install-dir)) |
| 93 | (find-files syslinux-dir "\\.c32$")) | 93 | (find-files syslinux-dir "\\.c32$")) |
| 94 | (unless | 94 | (invoke/quiet extlinux "--install" install-dir) |
| 95 | (and (zero? (system* extlinux "--install" install-dir)) | 95 | (write-file-on-device (string-append syslinux-dir "/" #$mbr) |
| 96 | (write-file-on-device | 96 | 440 device 0)))) |
| 97 | (string-append syslinux-dir "/" #$mbr) 440 device 0)) | ||
| 98 | (error "failed to install SYSLINUX"))))) | ||
| 99 | 97 | ||
| 100 | (define install-extlinux-mbr | 98 | (define install-extlinux-mbr |
| 101 | (install-extlinux "mbr.bin")) | 99 | (install-extlinux "mbr.bin")) |