From f8bbd0d88cc251015eb255aecee5439fce481461 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 28 May 2021 20:04:01 +0100 Subject: Tweak how the GC protection works when closing the port Bring more stuff inside one with-gc-protection block. --- guix-build-coordinator/utils.scm | 6 ++---- 1 file 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) -- cgit v1.2.3