: handle>file-size ( handle -- n/f )
(handle>file-size) [
GetLastError ERROR_INVALID_FUNCTION =
- [ f ] [ throw-win32-error ] if
+ [ f ] [ win32-error ] if
] unless* ;
ERROR: seek-before-start n ;
0
[ FindFirstStream ] keepd
over INVALID_HANDLE_VALUE = [
- 2drop throw-win32-error
+ 2drop win32-error
] [
1vector swap file-streams-rest
] if ;