04/06: progress: 'progress-reporter-report!' takes any number of arguments.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit cfe19684ea21feaee97d5c31e248b5a69921f784
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."