From a80aeea7f986ecdd6f938932599441bec09a176f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Tue, 31 May 2016 17:04:34 +0200 Subject: [PATCH] io.files.windows: make CreateFile-flags a normal word (fixes the recent test failures) --- basis/io/files/windows/windows.factor | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor index 1ca3048f9a..b32e637d54 100755 --- a/basis/io/files/windows/windows.factor +++ b/basis/io/files/windows/windows.factor @@ -14,7 +14,9 @@ IN: io.files.windows SLOT: file -HOOK: CreateFile-flags io-backend ( DWORD -- DWORD ) +: CreateFile-flags ( DWORD -- DWORD ) + flags{ FILE_FLAG_BACKUP_SEMANTICS FILE_FLAG_OVERLAPPED } bitor ; + HOOK: open-append os ( path -- win32-file ) TUPLE: win32-file < win32-handle ptr ; @@ -359,9 +361,6 @@ M: windows normalize-path ( string -- string' ) prepend-prefix ] if ; -M: windows CreateFile-flags ( DWORD -- DWORD ) - flags{ FILE_FLAG_BACKUP_SEMANTICS FILE_FLAG_OVERLAPPED } bitor ; -