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

use PATH-LIST->FILE-NAME for file name assembling

This commit is contained in:
interp 2002-10-01 12:22:37 +00:00
parent a09d10850e
commit 349402b7cc
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/httpd/surflets/surflet-handler.scm
View File

@ -81,8 +81,9 @@
(if (redirect-body? (response-body response)) (if (redirect-body? (response-body response))
;; prefix with servlet-path ;; prefix with servlet-path
(make-redirect-response (make-redirect-response
(string-join (file-name-as-directory servlet-prefix) (path-list->file-name
(redirect-body-location (response-body response)))) (list (directory-as-file-name servlet-prefix)
(redirect-body-location (response-body response)))))
response))) response)))
(else (else
(make-http-error-response http-status/method-not-allowed req (make-http-error-response http-status/method-not-allowed req