fix size-on-disk for unix

2009-04-20 17:25:18 -05:00 · 2009-04-20 17:25:18 -05:00 · 12a89f1550
parent 5c236d6585
commit 12a89f1550
1 changed files with 1 additions and 1 deletions
--- a/basis/io/files/info/unix/unix.factor
+++ b/basis/io/files/info/unix/unix.factor
@ -80,7 +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 ]
+        [ drop dup [ blocks>> ] [ blocksize>> ] bi * >>size-on-disk ]
    } cleave ;

 : n>file-type ( n -- type )