me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Ludovic Courtès 2018-09-25 10:22:59 +02:00
parent 2e3a6250f8
commit cfe19684ea
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/progress.scm
View File

@ -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."