From 7621d34e4d235487a477e91307d8bd54b09eb9c9 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Thu, 4 Sep 2003 12:43:06 +0000 Subject: [PATCH] Add a comment about setting socket descriptors to non-blocking mode. --- scsh/network.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/scsh/network.scm b/scsh/network.scm index a44ed21..071040a 100644 --- a/scsh/network.scm +++ b/scsh/network.scm @@ -167,8 +167,10 @@ (let* ((fd (%socket pf type protocol)) (in (make-input-fdport fd 0)) (out (dup->outport in))) - (set-fdes-status in open/non-blocking) - (set-fdes-status out open/non-blocking) + (set-fdes-status in open/non-blocking) ; not necessary, because + ; the next line will + ; cause it anyway + (set-fdes-status out open/non-blocking) ; see c/unix/fd-io.c (make-socket pf in out)))))