From c245a54aab348642178129a9aad501b81a3089b4 Mon Sep 17 00:00:00 2001 From: Zheng Junjie Date: Wed, 10 Jan 2024 15:24:00 +0800 Subject: [PATCH] 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 --- 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