1 ! Copyright (C) 2010 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: combinators kernel system vocabs ;
6 HOOK: set-system-time os ( timestamp -- )
7 HOOK: adjust-time-monotonic os ( timestamp -- seconds )
10 { [ os windows? ] [ "time.windows" ] }
11 { [ os macosx? ] [ "time.macosx" ] }
12 { [ os unix? ] [ "time.unix" ] }