calendar: use now in some places instead of now-gmt.

diff --git a/basis/furnace/cache/cache.factor b/basis/furnace/cache/cache.factor
index a43f74ffab7cef11d17e673442b92e27e1d0778b..aaad309656abc3dbdf74a40607ec377b23388e80 100644 (file)
--- a/basis/furnace/cache/cache.factor
+++ b/basis/furnace/cache/cache.factor
@@ -22,7 +22,7 @@ server-state f
 
 : expire-state ( class -- )
     new
-        -1/0. now-gmt timestamp>micros [a,b] >>expires
+        -1/0. now timestamp>micros [a,b] >>expires
     delete-tuples ;
 
 TUPLE: server-state-manager < filter-responder timeout ;

diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor
index 5690545268eb9dbbb081aa572d0d20f67b1aee90..744796bb44827207db824cbbe9033e0deb43cb26 100644 (file)
--- a/basis/smtp/smtp.factor
+++ b/basis/smtp/smtp.factor
@@ -193,7 +193,7 @@ ERROR: invalid-header-string string ;
         "<" %
         64 random-bits #
         "-" %
-        now-gmt timestamp>micros #
+        now timestamp>micros #
         "@" %
         smtp-config get domain>> [ host-name ] unless* %
         ">" %

diff --git a/basis/uuid/uuid.factor b/basis/uuid/uuid.factor
index 5c34a8c8c65b65120fa287c7b280323c05fa2a3d..b96434627b6f4ad3bbb959028ebd6576b8ed59ab 100644 (file)
--- a/basis/uuid/uuid.factor
+++ b/basis/uuid/uuid.factor
@@ -11,7 +11,7 @@ IN: uuid
     ! 0x01b21dd213814000L is the number of 100-ns intervals
     ! between the UUID epoch 1582-10-15 00:00:00 and the
     ! Unix epoch 1970-01-01 00:00:00.
-    now-gmt timestamp>micros 10 * 0x01b21dd213814000 +
+    now timestamp>micros 10 * 0x01b21dd213814000 +
     [ -48 shift 0x0fff bitand ]
     [ -32 shift 0xffff bitand ]
     [ 0xffffffff bitand ]

diff --git a/extra/key-logger/key-logger.factor b/extra/key-logger/key-logger.factor
index c4b48a2de33a7c7a3c33b3e8c9847b9dddceb6b1..75a1f0e7178679e14d587765ba2a1275a1fa7cf9 100644 (file)
--- a/extra/key-logger/key-logger.factor
+++ b/extra/key-logger/key-logger.factor
@@ -12,7 +12,7 @@ CONSTANT: path "resource:key-log.txt"
 : update-key-caps-state ( -- )
     read-keyboard keys>>
     path binary [
-        [ now-gmt unix-1970 time- duration>nanoseconds >integer ]
+        [ now unix-1970 time- duration>nanoseconds >integer ]
         [ bit-array>integer ] bi*
         [ 8 >be write ] bi@ flush
     ] with-file-appender ;

diff --git a/extra/webapps/irc-log/irc-log.factor b/extra/webapps/irc-log/irc-log.factor
index 74805f91e860b11ec0920eeea7f74fc9cec23eeb..5158c9afd04d479dd3c6ac2b97774c9650a56c6c 100644 (file)
--- a/extra/webapps/irc-log/irc-log.factor
+++ b/extra/webapps/irc-log/irc-log.factor
@@ -8,7 +8,7 @@ IN: webapps.irc-log
 TUPLE: irclog-app < dispatcher ;
 
 : irc-link ( channel -- string )
-    now-gmt -7 hours convert-timezone >date<
+    now -7 hours convert-timezone >date<
     [ unparse 2 tail ] 2dip
     "http://bespin.org/~nef/logs/%s/%02s.%02d.%02d"
     sprintf ;