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>
This commit is contained in:
Zheng Junjie 2024-01-10 15:24:00 +08:00 committed by Mathieu Othacehe
parent acd688a062
commit c245a54aab
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 2 additions and 1 deletions

View File

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