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

calendar.unix: simplify current-timeval.

db4
John Benediktsson 2014-02-27 15:26:52 -08:00
parent 332fc7bc1a
commit e5850f93e0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/calendar/unix/unix.factor
View File

@ -35,7 +35,7 @@ M: unix gmt-offset ( -- hours minutes seconds )
get-time gmtoff>> 3600 /mod 60 /mod ; get-time gmtoff>> 3600 /mod 60 /mod ;
: current-timeval ( -- timeval ) : current-timeval ( -- timeval )
timeval <struct> f [ gettimeofday io-error ] 2keep drop ; inline timeval <struct> [ f gettimeofday io-error ] keep ; inline
: system-micros ( -- n ) : system-micros ( -- n )
current-timeval timeval>micros ; current-timeval timeval>micros ;