add a size-on-disk slot to file-info, the each-file combinator now works better,...

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

diff --git a/basis/io/files/info/unix/unix.factor b/basis/io/files/info/unix/unix.factor
index 616f70ccccac90167df568de923247d33c7395e5..d4762a536d2731e7c13e893c4a6f6f528ff95f24 100644 (file)
--- a/basis/io/files/info/unix/unix.factor
+++ b/basis/io/files/info/unix/unix.factor
@@ -80,6 +80,7 @@ M: unix stat>file-info ( stat -- file-info )
         [ stat-st_rdev >>rdev ]
         [ stat-st_blocks >>blocks ]
         [ stat-st_blksize >>blocksize ]
+        [ drop blocks>> blocksize>> * >>size-on-disk ]
     } cleave ;
 
 : n>file-type ( n -- type )