Remove more system-micros stuff

db4
Doug Coleman 2010-06-22 02:04:31 -05:00
parent 4b9760dd67
commit 796aca7a4e
3 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -188,7 +188,7 @@ ERROR: invalid-header-string string ;
"<" %
64 random-bits #
"-" %
system-micros #
gmt timestamp>micros #
"@" %
smtp-domain get [ host-name ] unless* %
">" %

View File

@ -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" } }