/extra/time/time.factor

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