From 98e2a15b1e31689b75f3ded128f1650d0f091436 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sun, 19 Feb 2023 01:00:00 +0100 Subject: [PATCH] git: Factor out INDEXER-PROGRESS-TOTAL-OBJECTS access. * guix/git.scm (show-progress): Reuse the result of the first call. --- guix/git.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/guix/git.scm b/guix/git.scm index 95630a5e69..a1e6b3fa9c 100644 --- a/guix/git.scm +++ b/guix/git.scm @@ -142,7 +142,7 @@ the 'SSL_CERT_FILE' and 'SSL_CERT_DIR' environment variables." (indexer-progress-total-objects progress)) (define hundredth - (match (quotient (indexer-progress-total-objects progress) 100) + (match (quotient total 100) (0 1) (x x)))