mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-24 19:27:44 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define total
(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)))