diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-06-02 01:29:38 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-06-02 01:38:36 +0200 |
| commit | 88bc3c89bf5145d24c2270d2192b7be547e0024f (patch) | |
| tree | 08b0eb13ff22c931bbe69f51e94697f72ca2768c /guix/progress.scm | |
| parent | 08be02bea1f51855318f7c11d920ed9eea13b65b (diff) | |
| download | guix-88bc3c89bf5145d24c2270d2192b7be547e0024f.tar guix-88bc3c89bf5145d24c2270d2192b7be547e0024f.tar.gz | |
progress: Provide the proper type for %PROGRESS-INTERVAL.
The (srfi srfi-19) module of Guile 2.9.2 catches the wrong type.
* guix/progress.scm (%progress-interval): Change type to TIME-DURATION.
Diffstat (limited to 'guix/progress.scm')
| -rw-r--r-- | guix/progress.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/progress.scm b/guix/progress.scm index 65080bcf24..f150b081d6 100644 --- a/guix/progress.scm +++ b/guix/progress.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Sou Bunnbu <iyzsong@gmail.com> ;;; Copyright © 2015 Steve Sprang <scs@stevesprang.com> -;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; ;;; This file is part of GNU Guix. @@ -229,7 +229,7 @@ throughput." (define %progress-interval ;; Default interval between subsequent outputs for rate-limited displays. - (make-time time-monotonic 200000000 0)) + (make-time time-duration 200000000 0)) (define* (progress-reporter/file file size #:optional (log-port (current-output-port)) |