From e3ef1280c4ad85b269e259e1e621ef0b8c5e49ea Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Sun, 29 Dec 2002 17:49:06 +0000
Subject: [PATCH] Correct leftover from the fork-based implementation: adjust
 port-buffering of socket's input port.

---
 scheme/httpd/core.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm
index b2eb7ee..61d024a 100644
--- a/scheme/httpd/core.scm
+++ b/scheme/httpd/core.scm
@@ -70,7 +70,7 @@
 		  (set-port-buffering (socket:outport sock) bufpol/none) ; No buffering
 		  (fork-thread 
 		   (lambda ()	
-		     (set-port-buffering (current-input-port) bufpol/none)
+		     (set-port-buffering (socket:inport sock) bufpol/none)
 		     (process-toplevel-request sock host-address options)
 		     (if (http-syslog?)
 			 (http-syslog (syslog-level debug) "<~a>~a [closing]~%"