PageRenderTime 150ms CodeModel.GetById 138ms app.highlight 7ms RepoModel.GetById 1ms app.codeStats 1ms

/extra/time/time.factor

http://github.com/abeaumont/factor
Unknown | 14 lines | 12 code | 2 blank | 0 comment | 0 complexity | 01da54209f45f57018be5e24b92f6ead MD5 | raw file
 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