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

2002-10-01 12:22:37 +00:00 · 2002-10-01 12:22:37 +00:00 · 349402b7cc
parent a09d10850e
commit 349402b7cc
1 changed files with 3 additions and 2 deletions
--- a/scheme/httpd/surflets/surflet-handler.scm
+++ b/scheme/httpd/surflets/surflet-handler.scm
@ -81,8 +81,9 @@
 	      (if (redirect-body? (response-body response))
 		  ;; prefix with servlet-path
 		  (make-redirect-response 
-		   (string-join (file-name-as-directory servlet-prefix)
-				(redirect-body-location (response-body response))))
+		   (path-list->file-name
+		    (list (directory-as-file-name servlet-prefix)
+			  (redirect-body-location (response-body response)))))
 		  response)))
 	   (else
 	    (make-http-error-response http-status/method-not-allowed req