make-timespec ( nanos -- timespec )


Vocabulary
unix.time

Inputs
nanosan object


Outputs
timespecan object


Definition
USING: accessors kernel math ;

IN: unix.time

: make-timespec ( nanos -- timespec )
[ timespec new ] dip
[ 1000000000 /mod [ >>sec ] [ >>nsec ] bi* ] unless-zero ;