windows.dragdrop-listener: balance the stack effects to pass compilation

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index 33f4ebc107a70050c61fcb7e6c2d866580baea10..a8818d703a8336e564fabf04b306a9dfac363c3f 100644 (file)
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -60,7 +60,7 @@ SYMBOL: +listener-dragdrop-wrapper+
                     first unparse [ "USE: parser " % % " run-file" % ] "" make
                     eval-listener
                     DROPEFFECT_COPY
-                ] [ 2drop DROPEFFECT_NONE ] if
+                ] [ drop DROPEFFECT_NONE ] if
             ] dip 0 set-alien-unsigned-4
             S_OK
         ]