Remove more system-micros stuff
parent
4b9760dd67
commit
796aca7a4e
|
@ -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
|
||||
|
|
|
@ -188,7 +188,7 @@ ERROR: invalid-header-string string ;
|
|||
"<" %
|
||||
64 random-bits #
|
||||
"-" %
|
||||
system-micros #
|
||||
gmt timestamp>micros #
|
||||
"@" %
|
||||
smtp-domain get [ host-name ] unless* %
|
||||
">" %
|
||||
|
|
|
@ -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" } }
|
||||
|
|
Loading…
Reference in New Issue