From 753fa3824e58b4578e89898c37c64df70bdd4da3 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 13 Mar 2008 18:56:33 -0500 Subject: [PATCH] Fix file responder --- extra/http/server/static/static.factor | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/extra/http/server/static/static.factor b/extra/http/server/static/static.factor index 9c05b87a71..b408b1b6b0 100755 --- a/extra/http/server/static/static.factor +++ b/extra/http/server/static/static.factor @@ -10,12 +10,8 @@ IN: http.server.static ! special maps mime types to quots with effect ( path -- ) TUPLE: file-responder root hook special ; -: unix-time>timestamp ( n -- timestamp ) - >r unix-1970 r> seconds time+ ; - : file-http-date ( filename -- string ) - file-info file-info-modified - unix-time>timestamp timestamp>http-string ; + file-info file-info-modified timestamp>http-string ; : last-modified-matches? ( filename -- ? ) file-http-date dup [