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

2017-08-17 23:55:27 +03:00 · 2017-08-17 23:55:27 +03:00 · e1bd46faee
parent aa3d2ae5c4
commit e1bd46faee
1 changed files with 1 additions and 1 deletions
--- 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
        ]