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

View File

@ -292,10 +292,10 @@
(define (send-http-response request response port options)
(if (not (v0.9-request? request))
(send-http-headers response port)
(send-http-headers response port))
(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)
(for-each (lambda (pair)