steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/core-foundation/timers/timers.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008, 2010 Slava Pestov. ! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types alien.syntax system math kernel calendar 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 IN: core-foundation.timers
TYPEDEF: void* CFRunLoopTimerRef TYPEDEF: void* CFRunLoopTimerRef

2
basis/smtp/smtp.factor
View File

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

2
basis/tools/time/time-docs.factor
View File

@ -24,7 +24,7 @@ HELP: time
{ $values { "quot" quotation } } { $values { "quot" quotation } }
{ $description "Runs a quotation, gathering statistics about method dispatch and garbage collection, and then prints the total run time." } ; { $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 HELP: collect-gc-events
{ $values { "quot" quotation } { "gc-events" "a sequence of " { $link gc-event } " instances" } } { $values { "quot" quotation } { "gc-events" "a sequence of " { $link gc-event } " instances" } }