windows.dragdrop-listener: Fix compilation bug.

2017-09-02 02:00:25 +00:00 · 2017-09-02 02:00:25 +00:00 · cfed04a373
parent 6c965dbe21
commit cfed04a373
1 changed files with 3 additions and 3 deletions
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@ -47,9 +47,11 @@ TUPLE: listener-dragdrop hWnd last-drop-effect ;
 : <listener-dragdrop> ( hWnd -- object )
    DROPEFFECT_NONE listener-dragdrop boa ;

+<<
+
 SYMBOL: +listener-dragdrop-wrapper+

-<<
+>>

 {
    { IDropTarget {
@ -81,8 +83,6 @@ SYMBOL: +listener-dragdrop-wrapper+
    } }
 } <com-wrapper> +listener-dragdrop-wrapper+ set-global

->>
-
 : dragdrop-listener-window ( -- )
    world get handle>> hWnd>> dup <listener-dragdrop>
    +listener-dragdrop-wrapper+ get-global com-wrap