io.files.windows: fix set-end-of-file

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 02c2a4f98a1ef0137c6d605be0114a14daaccae8..526faad65522fa7b530262d816d4d1b5b09f008f 100644 (file)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -257,7 +257,7 @@ M: windows init-stdio
     INVALID_SET_FILE_POINTER = [ "SetFilePointer failed" throw ] when ;
 
 : set-end-of-file ( win32-file -- )
-    handle>> SetEndOfFile zero? [ windows-error ] unless ;
+    handle>> SetEndOfFile [ win32-error ] unless ;
 
 M: windows (file-reader)
     open-read <input-port> ;