From d9379f9af72055ed85059564fad8a84279c46d95 Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Sat, 25 Mar 2006 09:58:34 +0000
Subject: [PATCH] win32 bootstrap fixes

---
 contrib/win32/load.factor            | 1 +
 contrib/win32/user32.factor          | 2 +-
 library/bootstrap/boot-stage2.factor | 4 ++++
 3 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/contrib/win32/load.factor b/contrib/win32/load.factor
index c822c82b3e..68c39f6f0f 100644
--- a/contrib/win32/load.factor
+++ b/contrib/win32/load.factor
@@ -18,3 +18,4 @@ USING: alien compiler kernel parser sequences words ;
     "clipboard"
     "ui"
 } [ "/contrib/win32/" swap ".factor" append3 run-resource ] each
+compile-all
diff --git a/contrib/win32/user32.factor b/contrib/win32/user32.factor
index 7790419cb6..8c7eecc23b 100644
--- a/contrib/win32/user32.factor
+++ b/contrib/win32/user32.factor
@@ -635,7 +635,7 @@ FUNCTION: LRESULT DefWindowProcW ( HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lP
 ! FUNCTION: DestroyIcon
 ! FUNCTION: DestroyMenu
 ! FUNCTION: DestroyReasons
-! FUNCTION: DestroyWindow
+FUNCTION: BOOL DestroyWindow ( HWND hWnd ) ;
 ! FUNCTION: DeviceEventWorker
 ! FUNCTION: DialogBoxIndirectParamA
 ! FUNCTION: DialogBoxIndirectParamAorW
diff --git a/library/bootstrap/boot-stage2.factor b/library/bootstrap/boot-stage2.factor
index 5639c817a3..3621ece1fb 100644
--- a/library/bootstrap/boot-stage2.factor
+++ b/library/bootstrap/boot-stage2.factor
@@ -48,6 +48,10 @@ recrossref
     "x11" get [
         "/library/x11/load.factor" run-resource
     ] when
+
+    windows? [
+        "/contrib/win32/load.factor" run-resource
+    ] when
 ] when
 
 [