diff options
author | Ludovic Courtès <ludo@gnu.org> | 2022-07-01 10:38:37 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2022-07-01 12:10:28 +0200 |
commit | 05a759ab36c66e6336cdcf9f04ecc9e6e8e29dc2 (patch) | |
tree | 2a3da721beb17b65d7f196f3505663e5d3bf10a3 /gnu/system | |
parent | ed19bc87e4234144a05040aae75aee9a57e71f9b (diff) | |
download | guix-patches-05a759ab36c66e6336cdcf9f04ecc9e6e8e29dc2.tar guix-patches-05a759ab36c66e6336cdcf9f04ecc9e6e8e29dc2.tar.gz |
image: Raise an error when an image lacks a bootable partition.
* gnu/system/image.scm (find-root-partition): Raise an error when 'find'
returns #f.
Diffstat (limited to 'gnu/system')
-rw-r--r-- | gnu/system/image.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm index e6e6917ecd..42c2e6c121 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -275,7 +275,9 @@ set to the given OS." (define (find-root-partition image) "Return the root partition of the given IMAGE." - (srfi-1:find root-partition? (image-partitions image))) + (or (srfi-1:find root-partition? (image-partitions image)) + (raise (formatted-message + (G_ "image lacks a partition with the 'boot' flag"))))) (define (root-partition-index image) "Return the index of the root partition of the given IMAGE." |