diff options
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/image.scm | 4 |
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. " | |||
| 674 | (uuid-bytevector (partition-uuid partition))))) | 674 | (uuid-bytevector (partition-uuid partition))))) |
| 675 | 675 | ||
| 676 | (let* ((os (image-operating-system image)) | 676 | (let* ((os (image-operating-system image)) |
| 677 | (image-name (image-name image)) | ||
| 678 | (name (if image-name | ||
| 679 | (symbol->string image-name) | ||
| 680 | name)) | ||
| 677 | (bootloader (bootloader-package bootloader)) | 681 | (bootloader (bootloader-package bootloader)) |
| 678 | (compression? (image-compression? image)) | 682 | (compression? (image-compression? image)) |
| 679 | (substitutable? (image-substitutable? image)) | 683 | (substitutable? (image-substitutable? image)) |