diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm index 178685e..715b948 100644 --- a/scheme/httpd/core.scm +++ b/scheme/httpd/core.scm @@ -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)