time.unix: faster set-system-time.

diff --git a/extra/time/unix/unix.factor b/extra/time/unix/unix.factor
index 19129b360bd75f1a4007c6bb5d26f05fe23b1d7f..8ab5cf70e11b8f0172e7ead3fe4b4757dba8b4de 100644 (file)
--- a/extra/time/unix/unix.factor
+++ b/extra/time/unix/unix.factor
@@ -8,6 +8,6 @@ IN: time.unix
     gmt-offset>> duration>minutes 1 \ timezone <struct-boa> ; inline
 
 M: unix set-system-time
-    [ unix-1970 time- duration>microseconds >integer make-timeval ]
+    [ unix-1970 (time-) 1000000 * >integer make-timeval ]
     [ timestamp>timezone ] bi
     settimeofday io-error ;