git: Factor out INDEXER-PROGRESS-TOTAL-OBJECTS access.

* guix/git.scm (show-progress): Reuse the result of the first call.
2023-02-19 01:00:00 +01:00 · 2023-02-19 01:00:00 +01:00 · 98e2a15b1e
parent 9aa750776a
commit 98e2a15b1e
1 changed files with 1 additions and 1 deletions
--- 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)))