ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 13:28:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

image: 'system-image' throws when given an incorrect image format.

Browse source 
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.
This commit is contained in:
Ludovic Courtès 2022-07-01 09:42:53 +02:00
parent 0483c71cc5
commit e871c3a857
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/system/image.scm
View file

@ -842,7 +842,10 @@ (define target (cond
;; This happens if some limits are exceeded, see: ;; This happens if some limits are exceeded, see:
;; https://lists.gnu.org/archive/html/grub-devel/2020-06/msg00048.html ;; https://lists.gnu.org/archive/html/grub-devel/2020-06/msg00048.html
#:grub-mkrescue-environment #:grub-mkrescue-environment
'(("MKRESCUE_SED_MODE" . "mbr_only")))))))) '(("MKRESCUE_SED_MODE" . "mbr_only"))))
(else
(raise (formatted-message
(G_ "~a: unsupported image format") image-format)))))))
;; ;;