Fix HTTP server

2008-03-27 05:18:07 -05:00 · 2008-03-27 05:18:07 -05:00 · 65bfc09265
parent febcd88459
commit 65bfc09265
1 changed files with 3 additions and 1 deletions
--- 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