summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/progress.scm4
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."