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

Fix typo in SEND-HTTP-RESPONSE.

This commit is contained in:
sperber 2002-08-27 09:28:09 +00:00
parent c668e35e05
commit 4c98437ce0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/core.scm
View File

@ -292,10 +292,10 @@
(define (send-http-response request response port options) (define (send-http-response request response port options)
(if (not (v0.9-request? request)) (if (not (v0.9-request? request))
(send-http-headers response port) (send-http-headers response port))
(if (not (string=? (request:method request) "HEAD")) (if (not (string=? (request:method request) "HEAD"))
(display-http-body (response-body response) port options)))) (display-http-body (response-body response) port options)))
(define (send-http-header-fields headers port) (define (send-http-header-fields headers port)
(for-each (lambda (pair) (for-each (lambda (pair)