From f7b5b8cd45b4560b3473dde2e6f6f20b4ff9daff Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 3 Apr 2020 21:51:12 +0200
Subject: 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'.
---
 guix/scripts/pack.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index f641f535b9..6d63fb4b90 100644
--- 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)))))))))
-- 
cgit v1.2.3