adjust-time-monotonic ( timestamp -- seconds )

Vocabulary

time

Inputs

timestamp

an object

Outputs

seconds

an object

Definition

USING: system ;

IN: time

HOOK: adjust-time-monotonic os ( timestamp -- seconds )

Methods

USING: alien.data calendar calendar.unix
io.files.info.unix.private kernel libc system time unix.time ;

M: macosx adjust-time-monotonic
    timestamp>timeval \ timeval new [ adjtime io-error ] keep
    dup binary-zero?
    [ drop instant ] [ timeval>duration since-1970 now time- ]
    if ;