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 | |
| parent | ed19bc87e4234144a05040aae75aee9a57e71f9b (diff) | |
| download | guix-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.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." |