From e3f7cf36e27514dc299e680b93c168b589da9a30 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 15 Mar 2008 06:22:57 -0500 Subject: [PATCH] Fix Windows file-info --- extra/io/windows/files/files.factor | 2 +- extra/io/windows/windows.factor | 7 ++----- 2 files changed, 3 insertions(+), 6 deletions(-) diff --git a/extra/io/windows/files/files.factor b/extra/io/windows/files/files.factor index 2180ff7901..35aaf456a3 100755 --- a/extra/io/windows/files/files.factor +++ b/extra/io/windows/files/files.factor @@ -7,7 +7,7 @@ sequences namespaces words symbols ; IN: io.windows.files SYMBOLS: +read-only+ +hidden+ +system+ -+directory+ +archive+ +device+ +normal+ +temporary+ ++archive+ +device+ +normal+ +temporary+ +sparse-file+ +reparse-point+ +compressed+ +offline+ +not-content-indexed+ +encrypted+ ; diff --git a/extra/io/windows/windows.factor b/extra/io/windows/windows.factor index f6a9dd451f..dac55664a4 100755 --- a/extra/io/windows/windows.factor +++ b/extra/io/windows/windows.factor @@ -76,11 +76,8 @@ M: win32-file close-handle ( handle -- ) ] when drop ; : open-append ( path -- handle length ) - dup file-info file-info-size dup [ - >r (open-append) r> 2dup set-file-pointer - ] [ - drop open-write - ] if ; + [ dup file-info file-info-size ] [ drop 0 ] recover + >r (open-append) r> 2dup set-file-pointer ; TUPLE: FileArgs hFile lpBuffer nNumberOfBytesToRead lpNumberOfBytesRet lpOverlapped ;