From 80963744a242257921917df5a901dc343d3a93db Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 14 May 2020 16:53:42 +0200 Subject: store: 'mapm/accumulate-builds' preserves '%current-target-system'. Fixes . * guix/store.scm (mapm/accumulate-builds): Pass #:system and #:target to 'run-with-store'. * tests/store.scm ("mapm/accumulate-builds, %current-target-system"): New test. * tests/guix-pack.sh: Add 'guix pack -d --target' test. --- guix/store.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'guix/store.scm') diff --git a/guix/store.scm b/guix/store.scm index 6c7c07fd2d..014d08aaec 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -1899,7 +1899,9 @@ coalesce them into a single call." (values (map/accumulate-builds store (lambda (obj) (run-with-store store - (mproc obj))) + (mproc obj) + #:system (%current-system) + #:target (%current-target-system))) lst) store))) -- cgit v1.2.3