From 13b4840893c0089f04a72ba14086e6d4829c1124 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 16 Dec 2008 12:49:00 -0600 Subject: [PATCH] fix windows file append --- basis/io/files/windows/nt/nt.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/io/files/windows/nt/nt.factor b/basis/io/files/windows/nt/nt.factor index d0d9d5174a..15ac8ef1f0 100755 --- a/basis/io/files/windows/nt/nt.factor +++ b/basis/io/files/windows/nt/nt.factor @@ -4,7 +4,7 @@ io.backend.windows io.files.windows io.encodings.utf16n windows windows.kernel32 kernel libc math threads system environment alien.c-types alien.arrays alien.strings sequences combinators combinators.short-circuit ascii splitting alien strings assocs -namespaces make accessors tr ; +namespaces make accessors tr io.files.info ; IN: io.files.windows.nt M: winnt cwd @@ -45,7 +45,7 @@ M: winnt CreateFile-flags ( DWORD -- DWORD ) FILE_FLAG_OVERLAPPED bitor ; M: winnt open-append - 0 ! [ dup file-info size>> ] [ drop 0 ] recover + [ dup file-info size>> ] [ drop 0 ] recover [ (open-append) ] dip >>ptr ; M: winnt home "USERPROFILE" os-env ;