windows: Fix bootstrap.

[factor.git] / basis / windows / kernel32 / kernel32.factor

diff --git a/basis/windows/kernel32/kernel32.factor b/basis/windows/kernel32/kernel32.factor
index 92ac3bc152fdef85918d94ff19cdfcf18a042725..322b4f40b8c96c96943ecb7fe0eb47a1524401e8 100644 (file)
--- a/basis/windows/kernel32/kernel32.factor
+++ b/basis/windows/kernel32/kernel32.factor
@@ -1,9 +1,14 @@
 ! Copyright (C) 2005, 2006 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien alien.c-types alien.syntax kernel windows.types
-math multiline classes.struct ;
+math multiline classes.struct alien.data arrays ;
+QUALIFIED-WITH: alien.c-types c
 IN: windows.kernel32
 
+: lo-word ( wparam -- lo ) c:short <ref> c:short deref ; inline
+: hi-word ( wparam -- hi ) -16 shift lo-word ; inline
+: >lo-hi ( WORD -- array ) [ lo-word ] [ hi-word ] bi 2array ; inline
+
 CONSTANT: MAX_PATH 260
 
 CONSTANT: GHND          0x40