calendar.unix: fix timeval>seconds (thanks @k7f!)
parent
bf3f466688
commit
6955bf1428
|
@ -5,7 +5,7 @@ classes.struct kernel math system unix unix.time unix.types ;
|
||||||
IN: calendar.unix
|
IN: calendar.unix
|
||||||
|
|
||||||
: timeval>seconds ( timeval -- seconds )
|
: timeval>seconds ( timeval -- seconds )
|
||||||
[ sec>> ] [ usec>> 1000000000 / ] bi + ; inline
|
[ sec>> ] [ usec>> 1000000 / ] bi + ; inline
|
||||||
|
|
||||||
: timeval>duration ( timeval -- duration )
|
: timeval>duration ( timeval -- duration )
|
||||||
timeval>seconds seconds ;
|
timeval>seconds seconds ;
|
||||||
|
|
Loading…
Reference in New Issue