From 65bfc092652a60152af35e87cad5cb0ccec911dd Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 27 Mar 2008 05:18:07 -0500 Subject: [PATCH] Fix HTTP server --- extra/http/server/static/static.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/extra/http/server/static/static.factor b/extra/http/server/static/static.factor index 37c3a63d76..2f48e7ac87 100755 --- a/extra/http/server/static/static.factor +++ b/extra/http/server/static/static.factor @@ -39,7 +39,9 @@ TUPLE: file-responder root hook special ; [ 2drop <304> ] [ file-responder get hook>> call ] if ; : serving-path ( filename -- filename ) - "" or file-responder get root>> prepend-path ; + file-responder get root>> right-trim-separators + "/" + rot "" or left-trim-separators 3append ; : serve-file ( filename -- response ) dup mime-type