Updating code for make and fry changes

[factor.git] / basis / http / server / static / static.factor

diff --git a/basis/http/server/static/static.factor b/basis/http/server/static/static.factor
index dfbe93d86d7af82d74e2b9022448e892c95c6b60..b484e64368ada4a22dd8f1491bf88b2368afab30 100755 (executable)
--- a/basis/http/server/static/static.factor
+++ b/basis/http/server/static/static.factor
@@ -73,7 +73,7 @@ TUPLE: file-responder root hook special allow-listings ;
 \r
 : list-directory ( directory -- response )\r
     file-responder get allow-listings>> [\r
-        '[ , directory. ] "text/html" <content>\r
+        '[ _ directory. ] "text/html" <content>\r
     ] [\r
         drop <403>\r
     ] if ;\r