]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/time/time.factor
factor: more top level forms.
[factor.git] / extra / time / time.factor
index cd076e50d90a6c518b00b8f9f6f66b1f90f954a4..33a84a28c2f1fc2fea507c100083be34d2b1e436 100644 (file)
@@ -6,8 +6,6 @@ IN: time
 HOOK: set-system-time os ( timestamp -- )
 HOOK: adjust-time-monotonic os ( timestamp -- seconds )
 
-{
-    { [ os windows? ] [ "time.windows" ] }
-    { [ os macosx? ] [ "time.macosx" ] }
-    { [ os unix? ] [ "time.unix" ] }
-} cond require
+USE-MACOSX: time.macosx
+USE-UNIX: time.unix
+USE-WINDOWS: time.windows