Correct error message in make-http-response.

This commit is contained in:
interp 2004-07-21 20:38:00 +00:00
parent 6d6f34ae78
commit 10ca480e4c
1 changed files with 1 additions and 1 deletions

View File

@ -266,7 +266,7 @@
(display "Error in SUrflet output: no valid data.\n" out))
))))
(make-error-response (status-code internal-error) #f
"The SUrflet returned an invalid response object (no surflet-response)."))))
"The SUrflet returned an invalid response object (wrong data type in surflet-response)."))))
((and (response? response) ;; RESPONSE? refers to a HTTP-RESPONSE.
(redirect-body? (response-body response)))
response)