set-system-time ( timestamp -- )

Vocabulary

time

Inputs

timestamp

an object

Outputs

None

Definition

USING: system ;

IN: time

HOOK: set-system-time os ( timestamp -- )

Methods

USING: calendar kernel libc math system time time.unix unix.time
;

M: unix set-system-time
    [
        unix-1970 time-
        duration>microseconds >integer make-timeval
    ] [ timestamp>timezone ] bi settimeofday io-error ;