X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fwindows%2Fprivileges%2Fprivileges.factor;fp=basis%2Fwindows%2Fprivileges%2Fprivileges.factor;h=88b953660ea4c6846a380604c9204b4811362ca3;hp=1d124fcbfa8ac5de7d8f699043bd6474a52cf9d6;hb=7ec2ba15ef18bc0a2ec05e075758eb5f315c8a13;hpb=48191c249b8441268c42f1e453c8945bc81db3df

diff --git a/basis/windows/privileges/privileges.factor b/basis/windows/privileges/privileges.factor
index 1d124fcbfa..88b953660e 100644
--- 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