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

[factor.git] / basis / io / files / info / windows / windows.factor

diff --git a/basis/io/files/info/windows/windows.factor b/basis/io/files/info/windows/windows.factor
index 731f815b402b474d26948c27cb2a65b8354936f5..b4529f9b8cde4272e8ad810483308d1e432d5ecb 100644 (file)
--- a/basis/io/files/info/windows/windows.factor
+++ b/basis/io/files/info/windows/windows.factor
@@ -41,7 +41,7 @@ TUPLE: windows-file-info < file-info-tuple attributes ;
     } cleave ;
 
 : find-first-file-stat ( path -- WIN32_FIND_DATA )
-    WIN32_FIND_DATA <struct> [
+    WIN32_FIND_DATA new [
         FindFirstFile check-invalid-handle
         FindClose win32-error=0/f
     ] keep ;
@@ -68,7 +68,7 @@ TUPLE: windows-file-info < file-info-tuple attributes ;
 
 : get-file-information ( handle -- BY_HANDLE_FILE_INFORMATION )
     [
-        BY_HANDLE_FILE_INFORMATION <struct>
+        BY_HANDLE_FILE_INFORMATION new
         [ GetFileInformationByHandle win32-error=0/f ] keep
     ] keep CloseHandle win32-error=0/f ;