classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[factor.git] / basis / windows / directx / dinput / constants / constants.factor

diff --git a/basis/windows/directx/dinput/constants/constants.factor b/basis/windows/directx/dinput/constants/constants.factor
index 18a0e417509fe13aa8e517bbb415d64832f487a2..f7ab901417d80bf20d438ee6afd6980a8b9ec6a8 100644 (file)
--- a/basis/windows/directx/dinput/constants/constants.factor
+++ b/basis/windows/directx/dinput/constants/constants.factor
@@ -54,7 +54,7 @@ M: array array-base-type first ;
         [ fourth (flags) ]
         [ 4 swap nth (flag) ]
     } cleave
-    DIOBJECTDATAFORMAT <struct-boa> ;
+    DIOBJECTDATAFORMAT boa ;
 
 : make-DIOBJECTDATAFORMAT-arrays ( struct array -- values vars )
     [ [ <DIOBJECTDATAFORMAT> ] [ first ] bi ] with
@@ -73,7 +73,7 @@ M: array array-base-type first ;
 MACRO: <DIDATAFORMAT> ( dwFlags dwDataSize struct rgodf-array -- alien )
     [ DIDATAFORMAT heap-size DIOBJECTDATAFORMAT heap-size ] 4dip
     [ nip length ] [ make-DIOBJECTDATAFORMAT-array-quot ] 2bi
-    '[ _ _ _ _ _ @ DIDATAFORMAT <struct-boa> ] ;
+    '[ _ _ _ _ _ @ DIDATAFORMAT boa ] ;
 
 : (malloc-guid-symbol) ( symbol guid -- )
     '[ _ malloc-byte-array ] initialize ;