make-timeval ( us -- timeval )


Vocabulary
unix.time

Inputs
usan object


Outputs
timevalan object


Definition
USING: accessors kernel math ;

IN: unix.time

: make-timeval ( us -- timeval )
[ timeval new ] dip
[ 1000000 /mod [ >>sec ] [ >>usec ] bi* ] unless-zero ;