branch master updated: system: image: Fix disk-image name.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new f27bec1  system: image: Fix disk-image name.
f27bec1 is described below

commit f27bec107e3fd212feccabbfbb3c37887cf0ad7b
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Jun 26 10:05:58 2020 +0200

    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.
---
 gnu/system/image.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 7efbc9f..36f56e2 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*