From 220ac99930c4adbe9be9a5c08ce43a85b682d23b Mon Sep 17 00:00:00 2001 From: interp Date: Sat, 25 Jan 2003 13:30:45 +0000 Subject: [PATCH] Add SURFLET-RESPONSE->STRING for debug purpose. --- scheme/httpd/surflets/surflet-handler.scm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index b386705..b4d4b8e 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -70,6 +70,13 @@ (define (valid-surflet-response-data? data) (or (string? data) (list? data))) +(define (surflet-response->string surflet-response) + (format #f "#{Surflet-response Status: ~a Content-Type: ~s Headers: ~s~%~s~%" + (surflet-response-status surflet-response) + (surflet-response-content-type surflet-response) + (surflet-response-headers surflet-response) + (surflet-response-data surflet-response))) + ;; Surflet-prefix is unused now. Formerly, it contained the virtual ;; path prefix for the handler.