aboutsummaryrefslogtreecommitdiff
path: root/gnu/system/image.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-06-26 10:05:58 +0200
committerMathieu Othacehe <othacehe@gnu.org>2020-06-26 10:05:58 +0200
commitf27bec107e3fd212feccabbfbb3c37887cf0ad7b (patch)
treeff3ead22a250bf0a956535b44fe2878faeb6e7cb /gnu/system/image.scm
parent5980ec8ada5ede54bde6558c7ab8bf492bc70f85 (diff)
downloadguix-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.scm5
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*