diff --git a/scheme/httpd/response.scm b/scheme/httpd/response.scm index 79cd524..a06e192 100644 --- a/scheme/httpd/response.scm +++ b/scheme/httpd/response.scm @@ -244,8 +244,13 @@ response of a gateway.~%") (format out "~%~%~A~%~%~%~%" message) (format out "~%

~A

~%" message)) -;; Creates a redirect response. The server will serve the new file indicated by -;; NEW-LOCATION. NEW-LOCATION must be uri-encoded and begin with a slash. +;; Creates a redirect response. The server will serve the new file +;; indicated by NEW-LOCATION. NEW-LOCATION must be uri-encoded and +;; begin with a slash. This is intended for CGI scripts. Note that +;; the browser won't notice the redirect. Thus, it will keep the +;; original URL. For "real" redirections, use +;; (make-error-response (status-code moved-perm) req +;; "new-location" "new-location"). (define (make-redirect-response new-location) (make-response (status-code redirect)