windows.dinput.constants: fix load error

diff --git a/basis/windows/dinput/constants/constants.factor b/basis/windows/dinput/constants/constants.factor
index e0bfafc5c4e7adad2ef12e8af00c5d73a0a84519..b67b5fa08f18096c6c34837cba37afc36b9abea9 100755 (executable)
--- a/basis/windows/dinput/constants/constants.factor
+++ b/basis/windows/dinput/constants/constants.factor
@@ -49,7 +49,7 @@ MEMO: heap-size* ( c-type -- n ) heap-size ;
     } cleave
     DIOBJECTDATAFORMAT <struct-boa> ;
 
-:: malloc-DIOBJECTDATAFORMAT-array ( struct array -- alien )
+:: make-DIOBJECTDATAFORMAT-array ( struct array -- alien )
     [let | alien [ array length malloc-DIOBJECTDATAFORMAT-array ] |
         array [| args i |
             struct args <DIOBJECTDATAFORMAT>
@@ -60,7 +60,7 @@ MEMO: heap-size* ( c-type -- n ) heap-size ;
 
 : <DIDATAFORMAT> ( dwFlags dwDataSize struct rgodf-array -- alien )
     [ DIDATAFORMAT heap-size DIOBJECTDATAFORMAT heap-size ] 4 ndip
-    [ nip length ] [ malloc-DIOBJECTDATAFORMAT-array ] 2bi
+    [ nip length ] [ make-DIOBJECTDATAFORMAT-array ] 2bi
     DIDATAFORMAT <struct-boa> ;
 
 : initialize ( symbol quot -- )