pack: Pass the cross-compilation target to 'run-with-store'.

This ensures '%current-target-system' is correctly bound upfront, which
some packages rely on.

* guix/scripts/pack.scm (guix-pack): Pass #:target to 'run-with-store'.

diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index f641f53..6d63fb4 100644 (file)
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -1128,4 +1128,5 @@ to your package list.")))
                                         gc-root))
                       (return (format #t "~a~%"
                                       (derivation->output-path drv))))))
+                #:target target
                 #:system (assoc-ref opts 'system)))))))))