me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* guix/git.scm (show-progress): Reuse the result of the first call.
This commit is contained in:
Tobias Geerinckx-Rice 2023-02-19 01:00:00 +01:00
parent 9aa750776a
commit 98e2a15b1e
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/git.scm
View file

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