diff options
author | Christopher Baines <mail@cbaines.net> | 2021-05-28 20:04:01 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-05-28 20:04:01 +0100 |
commit | f8bbd0d88cc251015eb255aecee5439fce481461 (patch) | |
tree | a8832576f8728b96897fe3aa2e1d7a9a4986f6e2 | |
parent | 7ee154772189f4e2fab941594bb7be29b3ccdac4 (diff) | |
download | build-coordinator-f8bbd0d88cc251015eb255aecee5439fce481461.tar build-coordinator-f8bbd0d88cc251015eb255aecee5439fce481461.tar.gz |
Tweak how the GC protection works when closing the port
Bring more stuff inside one with-gc-protection block.
-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) |