build-system/gnu: Fix 'install' phase of 'gnu-dist'.

* guix/build/gnu-dist.scm (install-dist): Fix 2nd argument to
'for-each'.

1 files changed, 3 insertions, 6 deletions

diff --git a/guix/build/gnu-dist.scm b/guix/build/gnu-dist.scm
index ade3b42cab..fce1cd0759 100644
--- a/guix/build/gnu-dist.scm
+++ b/guix/build/gnu-dist.scm
@@ -40,13 +40,10 @@
   (apply invoke "make" dist-target make-flags))
 
 (define* (install-dist #:key outputs #:allow-other-keys)
-  (let* ((out      (assoc-ref outputs "out"))
-         (meta     (string-append out "/nix-support")) ; Hydra meta-data
-         (tarballs (find-files "." "\\.tar\\.")))
-    (mkdir out)
+  (let ((out (assoc-ref outputs "out")))
     (for-each (lambda (tarball)
-                (copy-file tarball (string-append out "/" tarball)))
-              out)
+                (install-file tarball out))
+              (find-files "." "\\.tar\\."))
     #t))
 
 (define %dist-phases