diff --git a/scheme/httpd/response.scm b/scheme/httpd/response.scm index 80903ce..4fa7873 100644 --- a/scheme/httpd/response.scm +++ b/scheme/httpd/response.scm @@ -8,12 +8,18 @@ (define-record-type http-response :http-response (make-response code message seconds mime extras body) response? - (code response-code) - (message response-message) - (seconds response-seconds) - (mime response-mime) - (extras response-extras) - (body response-body)) + (code response-code) ;;HTTP status code + (message response-message);;reason phrase: textual description of + ;;status-code, or #f (-> server sends + ;;default reason phrase) + (seconds response-seconds);;time the content was created + (mime response-mime);;string indicating the MIME type of the response + (extras response-extras);;assoc list with extra headers to be + ;;added to the response; its elements are + ;;pairs, each of which consists of a symbol + ;;representing the field name and a string + ;;representing the field value. + (body response-body));; message-body ;; This is mainly for nph-... CGI scripts. ;; This means that the body will output the entire MIME message, not