Move web framework to basis

basis/furnace/cache/cache.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel accessors math.intervals
-calendar alarms fry
+system calendar alarms fry
 random db db.tuples db.types
 http.server.filters ;
 IN: furnace.cache
@@ -14,7 +14,7 @@ TUPLE: server-state id expires ;
 server-state f
 {
     { "id" "ID" +random-id+ system-random-generator }
-    { "expires" "EXPIRES" TIMESTAMP +not-null+ }
+    { "expires" "EXPIRES" BIG-INTEGER +not-null+ }
 } define-persistent
 
 : get-state ( id class -- state )
@@ -22,7 +22,7 @@ server-state f
 
 : expire-state ( class -- )
     new
-        -1.0/0.0 now [a,b] >>expires
+        -1.0/0.0 millis [a,b] >>expires
     delete-tuples ;
 
 TUPLE: server-state-manager < filter-responder timeout ;
@@ -33,4 +33,4 @@ TUPLE: server-state-manager < filter-responder timeout ;
         20 minutes >>timeout ; inline
 
 : touch-state ( state manager -- )
-    timeout>> hence >>expires drop ;
+    timeout>> hence timestamp>millis >>expires drop ;