Fix load-everything

extra/calendar/format/format.factor

@@ -1,6 +1,6 @@
 IN: calendar.format
 USING: math math.parser kernel sequences io calendar
-accessors arrays io.streams.string combinators ;
+accessors arrays io.streams.string combinators accessors ;
 
 GENERIC: day. ( obj -- )
 

extra/io/paths/paths.factor

@@ -1,5 +1,5 @@
 USING: io.files kernel sequences new-slots accessors
-dlists arrays ;
+dlists arrays sequences.lib ;
 IN: io.paths
 
 TUPLE: directory-iterator path bfs queue ;

extra/lcd/lcd.factor

@@ -1,5 +1,6 @@
-USING: sequences kernel math io calendar calendar.model
+USING: sequences kernel math io calendar calendar.format
-arrays models namespaces ui.gadgets ui.gadgets.labels
+calendar.model arrays models namespaces ui.gadgets
+ui.gadgets.labels
 ui.gadgets.theme ui ;
 IN: lcd
 

extra/logging/parser/parser.factor

@@ -3,7 +3,7 @@
 USING: parser-combinators memoize kernel sequences
 logging arrays words strings vectors io io.files
 namespaces combinators combinators.lib logging.server
-calendar ;
+calendar calendar.format ;
 IN: logging.parser
 
 : string-of satisfy <!*> [ >string ] <@ ;

extra/logging/server/server.factor

@@ -3,7 +3,7 @@
 USING: namespaces kernel io calendar sequences io.files
 io.sockets continuations prettyprint assocs math.parser
 words debugger math combinators concurrency.messaging
-threads arrays init math.ranges strings ;
+threads arrays init math.ranges strings calendar.format ;
 IN: logging.server
 
 : log-root ( -- string )

extra/project-euler/019/019.factor

@@ -45,14 +45,14 @@ IN: project-euler.019
 <PRIVATE
 
 : start-date ( -- timestamp )
-    1901 1 1 0 0 0 0 make-timestamp ;
+    1901 1 1 0 0 0 0 <timestamp> ;
 
 : end-date ( -- timestamp )
-    2000 12 31 0 0 0 0 make-timestamp ;
+    2000 12 31 0 0 0 0 <timestamp> ;
 
 : (first-days) ( end-date start-date -- )
-    2dup timestamp- 0 >= [
+    2dup time- 0 >= [
-        dup day-of-week , 1 +month (first-days)
+        dup day-of-week , 1 months time+ (first-days)
     ] [
         2drop
     ] if ;

extra/smtp/smtp.factor

@@ -3,7 +3,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: namespaces io io.timeouts kernel logging io.sockets
 sequences combinators sequences.lib splitting assocs strings
-math.parser random system calendar ;
+math.parser random system calendar calendar.format ;
 
 IN: smtp
 

extra/webapps/cgi/cgi.factor

@@ -14,7 +14,7 @@ SYMBOL: cgi-root
     [
         "CGI/1.0" "GATEWAY_INTERFACE" set
         "HTTP/1.0" "SERVER_PROTOCOL" set
-        "Factor " version append "SERVER_SOFTWARE" set
+        "Factor" "SERVER_SOFTWARE" set
 
         dup "PATH_TRANSLATED" set
         "SCRIPT_FILENAME" set

extra/webapps/file/file.factor

@@ -3,7 +3,7 @@
 USING: calendar html io io.files kernel math math.parser
 http.server.responders http.server.templating namespaces parser
 sequences strings assocs hashtables debugger http.mime sorting
-html.elements logging ;
+html.elements logging calendar.format ;
 IN: webapps.file
 
 SYMBOL: doc-root

extra/webapps/pastebin/pastebin.factor

@@ -1,6 +1,6 @@
 USING: calendar furnace furnace.validator io.files kernel
 namespaces sequences http.server.responders html math.parser rss
-xml.writer xmode.code2html math ;
+xml.writer xmode.code2html math calendar.format ;
 IN: webapps.pastebin
 
 TUPLE: pastebin pastes ;

extra/webapps/planet/planet.factor

@@ -2,7 +2,7 @@ USING: sequences rss arrays concurrency.combinators kernel
 sorting html.elements io assocs namespaces math threads vocabs
 html furnace http.server.templating calendar math.parser
 splitting continuations debugger system http.server.responders
-xml.writer prettyprint logging ;
+xml.writer prettyprint logging calendar.format ;
 IN: webapps.planet
 
 : print-posting-summary ( posting -- )

extra/windows/time/time.factor

@@ -23,7 +23,7 @@ IN: windows.time
 
 : timestamp>windows-time ( timestamp -- n )
     #! 64bit number representing # of nanoseconds since Jan 1, 1601 (UTC)
-    >gmt windows-1601 timestamp- >bignum 10000000 * ;
+    >gmt windows-1601 time- >integer 10000000 * ;
 
 : windows-time>FILETIME ( n -- FILETIME )
     "FILETIME" <c-object>

extra/xml-rpc/xml-rpc.factor

@@ -3,7 +3,8 @@
 IN: xml-rpc
 USING: kernel xml arrays math generic http.client combinators
     hashtables namespaces io base64 sequences strings calendar
-    xml.data xml.writer xml.utilities assocs math.parser debugger ;
+    xml.data xml.writer xml.utilities assocs math.parser debugger
+    calendar.format ;
 
 ! * Sending RPC requests
 ! TODO: time