From 10ca480e4c5736593897856d61053100087c33e7 Mon Sep 17 00:00:00 2001 From: interp Date: Wed, 21 Jul 2004 20:38:00 +0000 Subject: [PATCH] Correct error message in make-http-response. --- scheme/httpd/surflets/surflet-handler.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index 19631ff..8e8431c 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -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)