09/10: git: Factor out INDEXER-PROGRESS-TOTAL-OBJECTS access.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 98e2a15b1e31689b75f3ded128f1650d0f091436
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Feb 19 01:00:00 2023 +0100

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