io.directories.windows: fix truncate-file

diff --git a/basis/io/directories/windows/windows.factor b/basis/io/directories/windows/windows.factor
index a0dc7680d282060aae2efc3225a7e7fbe6d5412c..421fc61bf492804b51dfb012d4cf27e13e0d51b7 100644 (file)
--- a/basis/io/directories/windows/windows.factor
+++ b/basis/io/directories/windows/windows.factor
@@ -14,8 +14,7 @@ M: windows touch-file
 
 M: windows truncate-file
     [ normalize-path open-file ] dip '[
-        [ _ 0 FILE_END set-file-pointer ]
-        [ set-end-of-file ] bi
+        [ _ FILE_END set-file-pointer ] [ set-end-of-file ] bi
     ] with-disposal ;
 
 M: windows move-file