09/12: scripts: size: Fix `guix size` with --system argument.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit c245a54aab348642178129a9aad501b81a3089b4
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Wed Jan 10 15:24:00 2024 +0800

    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>
---
 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 @@ 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