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

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

diff --git a/basis/calendar/windows/windows.factor b/basis/calendar/windows/windows.factor
index 0fa3f2ea208a13d55d295f108e8d53336e3fd7f2..3da219bb7fcdf45711f41b70ab9b413135cb0d6d 100644 (file)
--- a/basis/calendar/windows/windows.factor
+++ b/basis/calendar/windows/windows.factor
@@ -15,7 +15,7 @@ IN: calendar.windows
             [ nip >integer ]
             [ - 1000 * >integer ] 2bi
         ]
-    } cleave \ SYSTEMTIME <struct-boa> ;
+    } cleave \ SYSTEMTIME boa ;
 
 : SYSTEMTIME>timestamp ( SYSTEMTIME -- timestamp )
     {
@@ -28,7 +28,7 @@ IN: calendar.windows
     } cleave instant <timestamp> ;
 
 M: windows gmt-offset
-    TIME_ZONE_INFORMATION <struct>
+    TIME_ZONE_INFORMATION new
     dup GetTimeZoneInformation {
         { TIME_ZONE_ID_INVALID [ win32-error ] }
         { TIME_ZONE_ID_UNKNOWN [ Bias>> ] }
@@ -37,4 +37,4 @@ M: windows gmt-offset
     } case neg 60 /mod 0 ;
 
 M: windows now-gmt
-    SYSTEMTIME <struct> [ GetSystemTime ] keep SYSTEMTIME>timestamp ;
+    SYSTEMTIME new [ GetSystemTime ] keep SYSTEMTIME>timestamp ;