diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-09-25 10:22:59 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-09-25 18:45:50 +0200 |
| commit | cfe19684ea21feaee97d5c31e248b5a69921f784 (patch) | |
| tree | 908b07821f2dc59dfd36982455b9db3acb88542c | |
| parent | 2e3a6250f8b1232c7f49f84ee7320bcd9869508a (diff) | |
| download | patches-cfe19684ea21feaee97d5c31e248b5a69921f784.tar patches-cfe19684ea21feaee97d5c31e248b5a69921f784.tar.gz | |
progress: 'progress-reporter-report!' takes any number of arguments.
* guix/progress.scm (progress-reporter-report!): Accept an arbitrary
number of arguments and pass them to REPORT.
| -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 c9c3cd12a0..53aea1c56d 100644 --- a/guix/progress.scm +++ b/guix/progress.scm @@ -70,11 +70,11 @@ stopped." (($ <progress-reporter> start report stop) (start)))) -(define (progress-reporter-report! reporter) +(define (progress-reporter-report! reporter . args) "Low-level procedure to lead REPORTER to emit a report." (match reporter (($ <progress-reporter> start report stop) - (report)))) + (apply report args)))) (define (stop-progress-reporter! reporter) "Low-level procedure to stop REPORTER." |