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

[factor.git] / extra / io / files / trash / windows / windows.factor

diff --git a/extra/io/files/trash/windows/windows.factor b/extra/io/files/trash/windows/windows.factor
index bfae7e66ee0f49de61214932064ce85a7d0f9cbd..7697c0702f0a2910e44c9d5d84c3ae301b99e6e5 100644 (file)
--- a/extra/io/files/trash/windows/windows.factor
+++ b/extra/io/files/trash/windows/windows.factor
@@ -55,7 +55,7 @@ M: windows send-to-trash ( path -- )
         absolute-path native-string>alien B{ 0 0 } append
         malloc-byte-array &free
 
-        SHFILEOPSTRUCTW <struct>
+        SHFILEOPSTRUCTW new
             f >>hwnd
             FO_DELETE >>wFunc
             swap >>pFrom