http.server.static: sort files for static html directory listing. seems to be sorted...

diff --git a/basis/http/server/static/static.factor b/basis/http/server/static/static.factor
index 9fe50ae0345538683659e98c84aee191deaecac7..5b720afb7a47cff18c3325338799cef73dc42b5d 100644 (file)
--- a/basis/http/server/static/static.factor
+++ b/basis/http/server/static/static.factor
@@ -66,7 +66,7 @@ TUPLE: file-responder root hook special index-names allow-listings ;
     [ file-name ]
     [ drop f ]
     [
-        [ file-name ] [ [ [ file>html ] map ] with-directory-files ] bi
+        [ file-name ] [ [ natural-sort [ file>html ] map ] with-directory-files ] bi
         [XML <h1><-></h1> <ul><-></ul> XML]
     ] tri
     simple-page ;