Browse Source

system: image: Fix disk-image name.

This is a follow-up of 5980ec8ada.

* gnu/system/image.scm (system-disk-image): When using the image name, convert
it to string first.
Mathieu Othacehe 1 year ago
parent
commit
f27bec107e
No known key found for this signature in database GPG Key ID: 8354763531769CA6
  1. 5
      gnu/system/image.scm

5
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*

Loading…
Cancel
Save