~ruther/guix-local: scripts: size: Fix `guix size` with --system argument.

c245a54aab348642178129a9aad501b81a3089b4 — Zheng Junjie 2 years ago acd688a

scripts: size: Fix `guix size` with --system argument.

guix/scripts/size.scm (guix-size): Parameterize %current-system.

Change-Id: Ia0c1ebff4397aa211f73360925f7c688d59b515a
Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M guix/scripts/size.scm

M guix/scripts/size.scm => guix/scripts/size.scm +2 -1

@@ 317,7 317,8 @@ Report the size of the PACKAGE or STORE-ITEM, with its dependencies.\n"))
           ;; Turn off grafts because (1) substitute servers do not serve grafted
           ;; packages, and (2) they do not make any difference on the
           ;; resulting size.
-          (parameterize ((%graft? #f))
+          (parameterize ((%graft? #f)
+                         (%current-system system))
             (with-store store
               (set-build-options store
                                  #:use-substitutes? #t