aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-07-01 10:38:37 +0200
committerLudovic Courtès <ludo@gnu.org>2022-07-01 12:10:28 +0200
commit05a759ab36c66e6336cdcf9f04ecc9e6e8e29dc2 (patch)
tree2a3da721beb17b65d7f196f3505663e5d3bf10a3
parented19bc87e4234144a05040aae75aee9a57e71f9b (diff)
downloadguix-05a759ab36c66e6336cdcf9f04ecc9e6e8e29dc2.tar.gz
guix-05a759ab36c66e6336cdcf9f04ecc9e6e8e29dc2.zip
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.
-rw-r--r--gnu/system/image.scm4
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."