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

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

diff --git a/basis/windows/powrprof/powrprof.factor b/basis/windows/powrprof/powrprof.factor
index a94b4ffdf17ef2c5c059881db9197a04243e9e53..d3485277ccfc2087f6d578b724e29a394cad0447 100644 (file)
--- a/basis/windows/powrprof/powrprof.factor
+++ b/basis/windows/powrprof/powrprof.factor
@@ -310,7 +310,7 @@ ERROR: win32-powrprof-error n ;
     dup 0 = [ drop ] [ win32-powrprof-error ] if ;
 
 : get-power-capabilities ( -- struct )
-    SYSTEM_POWER_CAPABILITIES <struct>
+    SYSTEM_POWER_CAPABILITIES new
     [ GetPwrCapabilities win32-error=0/f ] keep ;
 
 : get-processor-power-information ( -- structs )