From af7288f535b4c10be01bd45c10b87d51abbe2d1c Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 8 Oct 2001 17:32:49 +0000
Subject: [PATCH] Revert to old bufpol name.

---
 httpd-core.scm | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/httpd-core.scm b/httpd-core.scm
index f98a052..833b961 100644
--- a/httpd-core.scm
+++ b/httpd-core.scm
@@ -76,18 +76,17 @@
 	;; closes the connection, we won't lose when we try to close the
 	;; socket by trying to flush the output buffer.
         (lambda (sock addr) ; Called once for every connection.
-	  (set-port-buffering (socket:outport sock) 'bufpol/none) ; No buffering
-
-	 (spawn (lambda ()	; Kill this line to bag forking.
+	  (set-port-buffering (socket:outport sock) bufpol/none) ; No buffering
+	  (spawn (lambda ()	; Kill this line to bag forking.
 					; Should propagate. ecch.
-		  (with-current-input-port 
-		   (socket:inport  sock)		    ; bind the
-		   (with-current-output-port 
-		    (socket:outport sock)	    ; stdio ports, &
-		    (set-port-buffering (current-input-port) 'bufpol/none)
-		    (process-toplevel-request path-handler sock)
-		    (close-socket sock))) ; do it.
-		  )))
+		   (with-current-input-port 
+		    (socket:inport  sock)		    ; bind the
+		    (with-current-output-port 
+		     (socket:outport sock)	    ; stdio ports, &
+		     (set-port-buffering (current-input-port) bufpol/none)
+		     (process-toplevel-request path-handler sock)
+		     (close-socket sock))) ; do it.
+		   )))
 	port))))
 
 ;;; Top-level http request processor