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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/surflet-handler.scm
View File

@ -266,7 +266,7 @@
(display "Error in SUrflet output: no valid data.\n" out)) (display "Error in SUrflet output: no valid data.\n" out))
)))) ))))
(make-error-response (status-code internal-error) #f (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. ((and (response? response) ;; RESPONSE? refers to a HTTP-RESPONSE.
(redirect-body? (response-body response))) (redirect-body? (response-body response)))
response) response)