diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-02-19 01:00:00 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-02-19 01:00:06 +0100 |
| commit | 98e2a15b1e31689b75f3ded128f1650d0f091436 (patch) | |
| tree | 86f25cd2465c8f64ac62d57be444379d2dc01283 /guix/git.scm | |
| parent | 9aa750776a6c6807fbb6b59d1d36361c4d4f7536 (diff) | |
| download | guix-98e2a15b1e31689b75f3ded128f1650d0f091436.tar.gz | |
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.scm | 2 |
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))) |