scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Set-cloexec to #t for unrevealed ports.

This commit is contained in:
mainzelm 2002-02-26 08:42:56 +00:00
parent 380fee6612
commit 45305e7555
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/newports.scm
View File

@ -17,7 +17,9 @@
(ch-number (channel-os-index ch))) (ch-number (channel-os-index ch)))
(if (not (= (fdport-data:revealed fdport*) 0)) (if (not (= (fdport-data:revealed fdport*) 0))
(table-set! fdports ch-number fdport) (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) (define (maybe-fdes->port fdes)
(weak-table-ref fdports fdes)) (weak-table-ref fdports fdes))