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

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

diff --git a/basis/windows/shell32/shell32.factor b/basis/windows/shell32/shell32.factor
index 89dd6a89caa251d1d0e7b5f68ba4bbe9ebdf145d..8dcc5ea85048c5ded062cfd3ef2a07484507aa33 100644 (file)
--- a/basis/windows/shell32/shell32.factor
+++ b/basis/windows/shell32/shell32.factor
@@ -125,7 +125,7 @@ FUNCTION: DWORD_PTR SHGetFileInfoW ( LPCTSTR pszPath,
 : shell32-file-info ( path -- err struct )
     normalize-path
     0
-    SHFILEINFO <struct>
+    SHFILEINFO new
     [ dup byte-length SHGFI_EXETYPE SHGetFileInfoW ] keep ;
 
 SINGLETONS: