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

Revert to old bufpol name.

This commit is contained in:
mainzelm 2001-10-08 17:32:49 +00:00
parent 4063467f96
commit af7288f535
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
httpd-core.scm
View File

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