[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/05: progress: 'progress-reporter-report!' takes any number of argumen
From: |
Ludovic Courtès |
Subject: |
01/05: progress: 'progress-reporter-report!' takes any number of arguments. |
Date: |
Tue, 25 Sep 2018 10:05:12 -0400 (EDT) |
civodul pushed a commit to branch wip-ui
in repository guix.
commit 2393392e7e8216c24c195e5388041f75d64a3591
Author: Ludovic Courtès <address@hidden>
Date: Tue Sep 25 10:22:59 2018 +0200
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.
---
guix/progress.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/guix/progress.scm b/guix/progress.scm
index c9c3cd1..53aea1c 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."