Merge branch 'master' into microseconds

[factor.git] / basis / io / unix / files / files.factor

diff --git a/basis/io/unix/files/files.factor b/basis/io/unix/files/files.factor
index ad5c192a39607fccaf695fe46d3e6bcf8af4a745..9fa1727e16c241dadd46f9b40e2e46a381dfdea5 100644 (file)
--- a/basis/io/unix/files/files.factor
+++ b/basis/io/unix/files/files.factor
@@ -303,7 +303,7 @@ M: string other-execute? ( path -- ? ) OTHER-EXECUTE file-mode? ;
     dup length [ over [ pick set-timeval-nth ] [ 2drop ] if ] 2each ;
 
 : timestamp>timeval ( timestamp -- timeval )
-    unix-1970 time- duration>milliseconds make-timeval ;
+    unix-1970 time- duration>microseconds make-timeval ;
 
 : timestamps>byte-array ( timestamps -- byte-array )
     [ dup [ timestamp>timeval ] when ] map make-timeval-array ;