02/02: system: image: Fix disk-image cross-compilation.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 1dbd0005a1312e88f449626142895f1ffb0bee60
Author: Mathieu Othacehe <address@hidden>
AuthorDate: Wed May 20 16:22:17 2020 +0200

    system: image: Fix disk-image cross-compilation.
    
    * gnu/system/image.scm (system-disk-image): Use the native version of the
    helper packages (e2fsprogs, dosfstools, mtools, genimage, coreutils and
    findutils).
---
 gnu/system/image.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index adc2b3c..6b5a36f 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -232,7 +232,7 @@ used in the image."
              (type (partition-file-system partition))
              (image-builder
               (with-imported-modules*
-               (let ((inputs '#$(list e2fsprogs dosfstools mtools)))
+               (let ((inputs '#+(list e2fsprogs dosfstools mtools)))
                  (set-path-environment-variable "PATH" '("bin" "sbin") inputs)
                  (make-partition-image #$(partition->gexp partition)
                                        #$output
@@ -275,7 +275,7 @@ image ~a {
   (let* ((substitutable? (image-substitutable? image))
          (builder
           (with-imported-modules*
-           (let ((inputs '#$(list genimage coreutils findutils)))
+           (let ((inputs '#+(list genimage coreutils findutils)))
              (set-path-environment-variable "PATH" '("bin" "sbin") inputs)
              (genimage #$(image->genimage-cfg image) #$output))))
          (image-dir (computed-file "image-dir" builder)))