image: system-iso9660-image: Propagate image-name to derivation name.

* gnu/system/image.scm (system-iso9660-image): Use name from image-name
instead of hardcoded image.iso.

Change-Id: I3cea3857729c2eb7d6728f650db7fb33cf4c8c8a
Signed-off-by: Rutherther <rutherther@ditigal.xyz>

1 files changed, 4 insertions, 0 deletions

diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index df7fa2c3905..7be6a796880 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -674,6 +674,10 @@ used in the image. "
        (uuid-bytevector (partition-uuid partition)))))
 
   (let* ((os (image-operating-system image))
+         (image-name (image-name image))
+         (name (if image-name
+                   (symbol->string image-name)
+                   name))
          (bootloader (bootloader-package bootloader))
          (compression? (image-compression? image))
          (substitutable? (image-substitutable? image))