git: Factor out INDEXER-PROGRESS-TOTAL-OBJECTS access.
* guix/git.scm (show-progress): Reuse the result of the first call.
This commit is contained in:
parent
9aa750776a
commit
98e2a15b1e
|
@ -142,7 +142,7 @@ the 'SSL_CERT_FILE' and 'SSL_CERT_DIR' environment variables."
|
||||||
(indexer-progress-total-objects progress))
|
(indexer-progress-total-objects progress))
|
||||||
|
|
||||||
(define hundredth
|
(define hundredth
|
||||||
(match (quotient (indexer-progress-total-objects progress) 100)
|
(match (quotient total 100)
|
||||||
(0 1)
|
(0 1)
|
||||||
(x x)))
|
(x x)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue