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

Add comment to MAKE-REDIRECT-RESPONSE.

This commit is contained in:
interp 2003-01-24 15:34:37 +00:00
parent 1dcee71722
commit 7055289412
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scheme/httpd/response.scm
View File

@ -244,8 +244,13 @@ response of a gateway.~%")
(format out "<HEAD>~%<TITLE>~%~A~%</TITLE>~%</HEAD>~%~%" message) (format out "<HEAD>~%<TITLE>~%~A~%</TITLE>~%</HEAD>~%~%" message)
(format out "<BODY>~%<H1>~A</H1>~%" message)) (format out "<BODY>~%<H1>~A</H1>~%" message))
;; Creates a redirect response. The server will serve the new file indicated by ;; Creates a redirect response. The server will serve the new file
;; NEW-LOCATION. NEW-LOCATION must be uri-encoded and begin with a slash. ;; 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) (define (make-redirect-response new-location)
(make-response (make-response
(status-code redirect) (status-code redirect)