Fix the io and ui backends so it bootstraps and the ui starts

diff --git a/extra/io/windows/nt/backend/backend.factor b/extra/io/windows/nt/backend/backend.factor
index 5eac9d6751936bf30da4662fa606a87117e138cb..1700f725e8387d1181bcb910885cdd256c520554 100644 (file)
--- 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> 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 50367f6bd6b6ee5a84a264247eae517b6215d0d0..a320c7ccd08d07471b7d8b11a88edad93289bc05 100644 (file)
--- 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