factor: trim using lists

[factor.git] / extra / time / time.factor

diff --git a/extra/time/time.factor b/extra/time/time.factor
index 61a4d7415e9ad0572eca1440c5da3e5c1cde8100..cd076e50d90a6c518b00b8f9f6f66b1f90f954a4 100644 (file)
--- a/extra/time/time.factor
+++ b/extra/time/time.factor
@@ -1,14 +1,13 @@
 ! Copyright (C) 2010 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators kernel system vocabs.loader ;
+USING: combinators system vocabs ;
 IN: time
 
-HOOK: set-time os ( timestamp -- )
+HOOK: set-system-time os ( timestamp -- )
 HOOK: adjust-time-monotonic os ( timestamp -- seconds )
 
-os {
-    { [ dup macosx? ] [ drop "time.macosx" require ] }
-    { [ dup windows? ] [ drop "time.windows" require ] }
-    { [ dup unix? ] [ drop "time.unix" require ] }
-    [ drop ]
-} cond
+{
+    { [ os windows? ] [ "time.windows" ] }
+    { [ os macosx? ] [ "time.macosx" ] }
+    { [ os unix? ] [ "time.unix" ] }
+} cond require