diff options
| -rw-r--r-- | guix-build-coordinator/utils.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 604930f..b221199 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -273,9 +273,7 @@ upcoming chunk." (force-output port)))) (define (close) - (with-gc-protection - (lambda () - (close-port port)))) + (close-port port)) (make-soft-port (vector %put-char %put-string flush #f close) @@ -320,9 +318,9 @@ upcoming chunk." (set-port-encoding! chunked-output-port "ISO-8859-1") (callback chunked-output-port) - (close-port chunked-output-port) (with-gc-protection (lambda () + (close-port chunked-output-port) (display "\r\n" port) (force-output port) |