diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-07-01 09:42:53 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-07-01 12:10:28 +0200 |
| commit | e871c3a857005c2c55fcbf4dbd48e22fe33b6451 (patch) | |
| tree | b216414c8ab5b349031adcf4362cd12f57c376c6 /gnu/system/image.scm | |
| parent | 0483c71cc5aeb3b69f6deb154fe12c0b2e6dc17f (diff) | |
| download | guix-e871c3a857005c2c55fcbf4dbd48e22fe33b6451.tar guix-e871c3a857005c2c55fcbf4dbd48e22fe33b6451.tar.gz | |
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/system/image.scm')
| -rw-r--r-- | gnu/system/image.scm | 5 |
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))))))) ;; |