Fix typo in SEND-HTTP-RESPONSE.
This commit is contained in:
parent
c668e35e05
commit
4c98437ce0
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue