From 796aca7a4eb1f8f5e0c3d3bdd7bbfa4a61a41732 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 22 Jun 2010 02:04:31 -0500
Subject: [PATCH] Remove more system-micros stuff

---
 basis/core-foundation/timers/timers.factor | 2 +-
 basis/smtp/smtp.factor                     | 2 +-
 basis/tools/time/time-docs.factor          | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/core-foundation/timers/timers.factor b/basis/core-foundation/timers/timers.factor
index 343753385a..99091408bb 100644
--- a/basis/core-foundation/timers/timers.factor
+++ b/basis/core-foundation/timers/timers.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien.c-types alien.syntax system math kernel calendar
-core-foundation core-foundation.time ;
+core-foundation core-foundation.time calendar.unix ;
 IN: core-foundation.timers
 
 TYPEDEF: void* CFRunLoopTimerRef
diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor
index 045c08df42..5b99edc9e8 100644
--- a/basis/smtp/smtp.factor
+++ b/basis/smtp/smtp.factor
@@ -188,7 +188,7 @@ ERROR: invalid-header-string string ;
         "<" %
         64 random-bits #
         "-" %
-        system-micros #
+        gmt timestamp>micros #
         "@" %
         smtp-domain get [ host-name ] unless* %
         ">" %
diff --git a/basis/tools/time/time-docs.factor b/basis/tools/time/time-docs.factor
index cbcd38c801..a3b8e9fc7e 100644
--- a/basis/tools/time/time-docs.factor
+++ b/basis/tools/time/time-docs.factor
@@ -24,7 +24,7 @@ HELP: time
 { $values { "quot" quotation } }
 { $description "Runs a quotation, gathering statistics about method dispatch and garbage collection, and then prints the total run time." } ;
 
-{ benchmark system-micros time } related-words
+{ benchmark time } related-words
 
 HELP: collect-gc-events
 { $values { "quot" quotation } { "gc-events" "a sequence of " { $link gc-event } " instances" } }
-- 
2.34.1