X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fwindows%2Fdropfiles%2Fdropfiles.factor;fp=basis%2Fwindows%2Fdropfiles%2Fdropfiles.factor;h=320a2f1fe05ce59a47bda0e2fe9bbf09724838de;hp=128b0ae18545e6e24c1de9d446f8f811ff74f628;hb=7ec2ba15ef18bc0a2ec05e075758eb5f315c8a13;hpb=48191c249b8441268c42f1e453c8945bc81db3df

diff --git a/basis/windows/dropfiles/dropfiles.factor b/basis/windows/dropfiles/dropfiles.factor
index 128b0ae185..320a2f1fe0 100644
--- a/basis/windows/dropfiles/dropfiles.factor
+++ b/basis/windows/dropfiles/dropfiles.factor
@@ -20,7 +20,7 @@ IN: windows.dropfiles
     ] with map ;
 
 ! : point-from-hdrop ( hdrop -- loc )
-!    POINT <struct> [ DragQueryPoint drop ] keep [ x>> ] [ y>> ] bi 2array ;
+!    POINT new [ DragQueryPoint drop ] keep [ x>> ] [ y>> ] bi 2array ;
 
 : handle-wm-dropfiles ( hdrop -- )
     <alien> [ filenames-from-hdrop dropped-files set-global ] [ DragFinish ] bi