diff options
| author | Marius Bakke <marius@gnu.org> | 2020-12-13 01:10:06 +0100 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2020-12-13 01:10:06 +0100 |
| commit | a7737f0ead2293536b9d0ba253de4673378a0ffa (patch) | |
| tree | cf80318b0a9903aa56a69c316659a52f94abbe27 /guix/progress.scm | |
| parent | ba47c83570b6d1824738ef5ff8580e7581990699 (diff) | |
| parent | 1adeb744560af94687eb7c3780c7145c52674070 (diff) | |
Merge branch 'master' into ungrafting
Diffstat (limited to 'guix/progress.scm')
| -rw-r--r-- | guix/progress.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/guix/progress.scm b/guix/progress.scm index fec65b424c..cd80ae620a 100644 --- a/guix/progress.scm +++ b/guix/progress.scm @@ -337,9 +337,10 @@ should be a <progress-reporter> object." (report total) (loop total (get-bytevector-n! in buffer 0 buffer-size)))))))) -(define (progress-report-port reporter port) +(define* (progress-report-port reporter port #:key (close? #t)) "Return a port that continuously reports the bytes read from PORT using -REPORTER, which should be a <progress-reporter> object." +REPORTER, which should be a <progress-reporter> object. When CLOSE? is true, +PORT is closed when the returned port is closed." (match reporter (($ <progress-reporter> start report stop) (let* ((total 0) @@ -364,5 +365,6 @@ REPORTER, which should be a <progress-reporter> object." ;; trace. (unless (zero? total) (stop)) - (close-port port))))))) + (when close? + (close-port port)))))))) |