summaryrefslogtreecommitdiff
path: root/guix/git.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2023-02-19 01:00:00 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2023-02-19 01:00:06 +0100
commit98e2a15b1e31689b75f3ded128f1650d0f091436 (patch)
tree86f25cd2465c8f64ac62d57be444379d2dc01283 /guix/git.scm
parent9aa750776a6c6807fbb6b59d1d36361c4d4f7536 (diff)
git: Factor out INDEXER-PROGRESS-TOTAL-OBJECTS access.
* guix/git.scm (show-progress): Reuse the result of the first call.
Diffstat (limited to 'guix/git.scm')
-rw-r--r--guix/git.scm2
1 files changed, 1 insertions, 1 deletions
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)))