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

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

diff --git a/basis/windows/privileges/privileges.factor b/basis/windows/privileges/privileges.factor
index 1d124fcbfa8ac5de7d8f699043bd6474a52cf9d6..88b953660ea4c6846a380604c9204b4811362ca3 100644 (file)
--- a/basis/windows/privileges/privileges.factor
+++ b/basis/windows/privileges/privileges.factor
@@ -28,11 +28,11 @@ TYPEDEF: TOKEN_PRIVILEGES* PTOKEN_PRIVILEGES
     [ CloseHandle drop ] finally ; inline
 
 : lookup-privilege ( string -- luid )
-    [ f ] dip LUID <struct>
+    [ f ] dip LUID new
     [ LookupPrivilegeValue win32-error=0/f ] keep ;
 
 :: make-token-privileges ( name enabled? -- obj )
-    TOKEN_PRIVILEGES <struct>
+    TOKEN_PRIVILEGES new
         1 >>PrivilegeCount
         LUID_AND_ATTRIBUTES malloc-struct &free
             enabled? [ SE_PRIVILEGE_ENABLED >>Attributes ] when