calendar.unix: fix timeval>seconds (thanks @k7f!)

db4
John Benediktsson 2012-07-16 07:37:02 -07:00
parent bf3f466688
commit 6955bf1428
1 changed files with 1 additions and 1 deletions

View File

@ -5,7 +5,7 @@ classes.struct kernel math system unix unix.time unix.types ;
IN: calendar.unix
: timeval>seconds ( timeval -- seconds )
[ sec>> ] [ usec>> 1000000000 / ] bi + ; inline
[ sec>> ] [ usec>> 1000000 / ] bi + ; inline
: timeval>duration ( timeval -- duration )
timeval>seconds seconds ;