steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

modern-harvey2
Alexander Iljin 2017-08-17 23:55:27 +03:00
parent aa3d2ae5c4
commit e1bd46faee
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/windows/dragdrop-listener/dragdrop-listener.factor
View File

@ -60,7 +60,7 @@ SYMBOL: +listener-dragdrop-wrapper+
first unparse [ "USE: parser " % % " run-file" % ] "" make first unparse [ "USE: parser " % % " run-file" % ] "" make
eval-listener eval-listener
DROPEFFECT_COPY DROPEFFECT_COPY
] [ 2drop DROPEFFECT_NONE ] if ] [ drop DROPEFFECT_NONE ] if
] dip 0 set-alien-unsigned-4 ] dip 0 set-alien-unsigned-4
S_OK S_OK
] ]