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

[factor.git] / basis / io / directories / windows / windows.factor

diff --git a/basis/io/directories/windows/windows.factor b/basis/io/directories/windows/windows.factor
index f3e54c56f9784d097086310f1f8fa0e145e88772..a956eecf9a2b6574606f2ba2adbcd68936c10787 100644 (file)
--- a/basis/io/directories/windows/windows.factor
+++ b/basis/io/directories/windows/windows.factor
@@ -73,7 +73,7 @@ C: <windows-directory-entry> windows-directory-entry
 
 M: windows (directory-entries)
     "\\" ?tail drop "\\*" append
-    WIN32_FIND_DATA <struct>
+    WIN32_FIND_DATA new
     find-first-file over
     [ >windows-directory-entry ] 2dip
     [