[bug#68363] [PATCH] size: fix `guix size` with system arg.

[Zheng Junjie]

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

Change-Id: Ia0c1ebff4397aa211f73360925f7c688d59b515a
---
 guix/scripts/size.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/size.scm b/guix/scripts/size.scm
index d26ed98388..8a8676a16f 100644
--- a/guix/scripts/size.scm
+++ b/guix/scripts/size.scm
@@ -317,7 +317,8 @@ (define-command (guix-size . args)
           ;; 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

base-commit: 9018c6af4907c4532a95017df9f45d9439c30064
prerequisite-patch-id: 04bf8c9efad61111b0e3334c0a5a12d2b468c385
-- 
2.41.0