From 0f217b9cf03c6a01fac82309586ebb08253d24f1 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 1 Jun 2016 11:59:57 -0700
Subject: [PATCH] http.server.static: sort files for static html directory
 listing. seems to be sorted on mac already, but not on linux. consider
 allowing a sort order parameter in the future.

---
 basis/http/server/static/static.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/http/server/static/static.factor b/basis/http/server/static/static.factor
index 9fe50ae034..5b720afb7a 100644
--- 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 ;