use system-micros

2009-11-18 18:27:35 -06:00 · 2009-11-18 18:27:35 -06:00 · a2aa9a87de
parent f29abf5740
commit a2aa9a87de
1 changed files with 1 additions and 1 deletions
--- a/basis/smtp/smtp.factor
+++ b/basis/smtp/smtp.factor
@ -187,7 +187,7 @@ ERROR: invalid-header-string string ;
        "<" %
        64 random-bits #
        "-" %
-        micros #
+        system-micros #
        "@" %
        smtp-domain get [ host-name ] unless* %
        ">" %