diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-26 10:05:58 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-26 10:05:58 +0200 |
| commit | f27bec107e3fd212feccabbfbb3c37887cf0ad7b (patch) | |
| tree | ff3ead22a250bf0a956535b44fe2878faeb6e7cb /gnu/system/image.scm | |
| parent | 5980ec8ada5ede54bde6558c7ab8bf492bc70f85 (diff) | |
| download | guix-f27bec107e3fd212feccabbfbb3c37887cf0ad7b.tar guix-f27bec107e3fd212feccabbfbb3c37887cf0ad7b.tar.gz | |
system: image: Fix disk-image name.
This is a follow-up of 5980ec8ada5ede54bde6558c7ab8bf492bc70f85.
* gnu/system/image.scm (system-disk-image): When using the image name, convert
it to string first.
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 7efbc9fac0..36f56e237d 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -301,7 +301,10 @@ image ~a { }~%" #$genimage-name #$image-type (list #$@partitions-config)))))))) (computed-file "genimage.cfg" builder))) - (let* ((name (or (image-name image) name)) + (let* ((image-name (image-name image)) + (name (if image-name + (symbol->string image-name) + name)) (substitutable? (image-substitutable? image)) (builder (with-imported-modules* |