diff --git a/basis/calendar/unix/unix.factor b/basis/calendar/unix/unix.factor index a1e83cc1c1..9f7d165925 100644 --- a/basis/calendar/unix/unix.factor +++ b/basis/calendar/unix/unix.factor @@ -11,14 +11,14 @@ IN: calendar.unix : timeval>unix-time ( timeval -- timestamp ) timeval>duration since-1970 ; -: timespec>seconds ( timespec -- seconds ) +: timespec>duration ( timespec -- seconds ) [ sec>> seconds ] [ nsec>> nanoseconds ] bi time+ ; : timespec>nanoseconds ( timespec -- seconds ) [ sec>> 1000000000 * ] [ nsec>> ] bi + ; : timespec>unix-time ( timespec -- timestamp ) - timespec>seconds since-1970 ; + timespec>duration since-1970 ; : get-time ( -- alien ) f time localtime ;