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

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

diff --git a/basis/windows/ole32/ole32.factor b/basis/windows/ole32/ole32.factor
index b4faa6da0d2e7de5c97e0924a96b3e2ecef2384a..26773412c888b000f27d15a047766515f7cc31a8 100644 (file)
--- a/basis/windows/ole32/ole32.factor
+++ b/basis/windows/ole32/ole32.factor
@@ -173,13 +173,13 @@ CONSTANT: GUID-STRING-LENGTH
     $[ "{01234567-89ab-cdef-0123-456789abcdef}" length ]
 
 : create-guid ( -- GUID )
-    GUID <struct> dup CoCreateGuid check-ole32-error ;
+    GUID new dup CoCreateGuid check-ole32-error ;
 
 : string>guid ( string -- guid )
     "{-}" split harvest
     [ first3 [ hex> ] tri@ ]
     [ 3 tail concat 2 group [ hex> ] B{ } map-as ] bi
-    GUID <struct-boa> ;
+    GUID boa ;
 
 : guid>string ( guid -- string )
     [