From 02a9e1eb14c379a69af834399963fd95f7075d7d Mon Sep 17 00:00:00 2001 From: "U-C4\\Administrator" Date: Thu, 4 Oct 2007 11:51:17 -0500 Subject: [PATCH] Fix the io and ui backends so it bootstraps and the ui starts --- extra/io/windows/nt/backend/backend.factor | 5 ++++- extra/ui/windows/windows.factor | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/extra/io/windows/nt/backend/backend.factor b/extra/io/windows/nt/backend/backend.factor index 5eac9d6751..1700f725e8 100644 --- a/extra/io/windows/nt/backend/backend.factor +++ b/extra/io/windows/nt/backend/backend.factor @@ -5,6 +5,9 @@ windows.errors windows.kernel32 prettyprint strings splitting io.files windows.winsock ; IN: io.windows.nt.backend +: .. global [ . flush ] bind ; +: .S global [ .s flush ] bind ; + : unicode-prefix ( -- seq ) "\\\\?\\" ; inline @@ -92,7 +95,7 @@ C: GetQueuedCompletionStatusParams : lookup-callback ( GetQueuedCompletion-args -- callback ) GetQueuedCompletionStatusParams-lpOverlapped* *void* - \ io-hash get-global delete-at drop ; + \ io-hash get-global delete-at* drop ; : wait-for-io ( timeout -- continuation/f ) wait-for-overlapped diff --git a/extra/ui/windows/windows.factor b/extra/ui/windows/windows.factor index 50367f6bd6..a320c7ccd0 100644 --- a/extra/ui/windows/windows.factor +++ b/extra/ui/windows/windows.factor @@ -456,7 +456,7 @@ M: windows-ui-backend ui init-win32-ui start-ui event-loop - ] [ cleanup-win32-ui ] cleanup + ] [ cleanup-win32-ui ] [ ] cleanup ] ui-running ; T{ windows-ui-backend } ui-backend set-global