Merge branch 'specialized-arrays'

[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 6f542361eecc10cf9ccda9186f11e81262220d54..4b570b6a89f3f6739270e18d019fcde85ece05f4 100644 (file)
--- a/basis/io/unix/files/files.factor
+++ b/basis/io/unix/files/files.factor
@@ -316,8 +316,7 @@ PRIVATE>
 <PRIVATE
 
 : make-timeval-array ( array -- byte-array )
-    [ length "timeval" <c-array> ] keep
-    dup length [ over [ pick set-timeval-nth ] [ 2drop ] if ] 2each ;
+    [ [ "timeval" <c-object> ] unless* ] map concat ;
 
 : timestamp>timeval ( timestamp -- timeval )
     unix-1970 time- duration>microseconds make-timeval ;