windows.dragdrop-listener: Fix an error when calling

``windows.dragdrop-listener" load``

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index 8771af6de88abf548c237d912c272186939dc08f..6a7d03d494101e809515074a94e34e8416d0195e 100644 (file)
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -48,11 +48,10 @@ TUPLE: listener-dragdrop hWnd last-drop-effect ;
     DROPEFFECT_NONE listener-dragdrop boa ;
 
 <<
-
 SYMBOL: +listener-dragdrop-wrapper+
-
 >>
 
+<<
 {
     { IDropTarget {
         [ ! HRESULT DragEnter ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
@@ -82,6 +81,7 @@ SYMBOL: +listener-dragdrop-wrapper+
         ]
     } }
 } <com-wrapper> +listener-dragdrop-wrapper+ set-global
+>>
 
 : dragdrop-listener-window ( -- )
     world get handle>> hWnd>> dup <listener-dragdrop>