[Top][All Lists]

[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)
-(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."

reply via email to

[Prev in Thread] Current Thread [Next in Thread]