aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-07-01 09:42:53 +0200
committerLudovic Courtès <ludo@gnu.org>2022-07-01 12:10:28 +0200
commite871c3a857005c2c55fcbf4dbd48e22fe33b6451 (patch)
treeb216414c8ab5b349031adcf4362cd12f57c376c6 /gnu
parent0483c71cc5aeb3b69f6deb154fe12c0b2e6dc17f (diff)
downloadguix-e871c3a857005c2c55fcbf4dbd48e22fe33b6451.tar.gz
guix-e871c3a857005c2c55fcbf4dbd48e22fe33b6451.zip
image: 'system-image' throws when given an incorrect image format.
Previously 'system-image' would return *unspecified* in that case, leading to a wrong-type-arg error crash down the road. * gnu/system/image.scm (system-image): Add 'else' clause.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/system/image.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 5972a944d7..f1739a35c1 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -842,7 +842,10 @@ image, depending on IMAGE format."
;; This happens if some limits are exceeded, see:
;; https://lists.gnu.org/archive/html/grub-devel/2020-06/msg00048.html
#:grub-mkrescue-environment
- '(("MKRESCUE_SED_MODE" . "mbr_only"))))))))
+ '(("MKRESCUE_SED_MODE" . "mbr_only"))))
+ (else
+ (raise (formatted-message
+ (G_ "~a: unsupported image format") image-format)))))))
;;