io.files.windows: improve error messages for set-file-pointer

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index fa7558fe77d2c22d96b18987dcac4e80736847c1..275b4b85cc39faeea2d1d5ed943f92e1f38cd383 100644 (file)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -263,7 +263,7 @@ PRIVATE>
 
 : set-file-pointer ( win32-file length method -- )
     [ [ handle>> ] dip d>w/w LONG <ref> ] dip SetFilePointer
-    INVALID_SET_FILE_POINTER = [ "SetFilePointer failed" throw ] when ;
+    INVALID_SET_FILE_POINTER = [ win32-error ] when ;
 
 : set-end-of-file ( win32-file -- )
     handle>> SetEndOfFile [ win32-error ] unless ;