From 45305e75554367a2b16681d054e164a4d40e1b5f Mon Sep 17 00:00:00 2001 From: mainzelm Date: Tue, 26 Feb 2002 08:42:56 +0000 Subject: [PATCH] Set-cloexec to #t for unrevealed ports. --- scsh/newports.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/scsh/newports.scm b/scsh/newports.scm index 50fd4bc..23b4028 100644 --- a/scsh/newports.scm +++ b/scsh/newports.scm @@ -17,7 +17,9 @@ (ch-number (channel-os-index ch))) (if (not (= (fdport-data:revealed fdport*) 0)) (table-set! fdports ch-number fdport) - (weak-table-set! fdports ch-number fdport)))) + (begin + (weak-table-set! fdports ch-number fdport) + (%set-cloexec (fdport-data:fd (port-data fdport)) #t))))) (define (maybe-fdes->port fdes) (weak-table-ref fdports fdes))