windows.dragdrop-listener: replace set-ulong-nth with set-alien-unsigned-4

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index 5f3f12b22773c8f0895462916175cfc123a2afcc..20ea98ed1adcd60f13116a3a6bdb0e35ad31ae7e 100644 (file)
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -42,12 +42,12 @@ SYMBOL: +listener-dragdrop-wrapper+
                 2drop
                 filenames-from-data-object
                 length 1 = [ DROPEFFECT_COPY ] [ DROPEFFECT_NONE ] if
-                dup 0
-            ] dip set-ulong-nth
+                dup
+            ] dip 0 set-alien-unsigned-4
             >>last-drop-effect drop
             S_OK
         ] [ ! DragOver
-            [ 2drop last-drop-effect>> 0 ] dip set-ulong-nth
+            [ 2drop last-drop-effect>> ] dip 0 set-alien-unsigned-4
             S_OK
         ] [ ! DragLeave
             drop S_OK
@@ -60,8 +60,7 @@ SYMBOL: +listener-dragdrop-wrapper+
                     eval-listener
                     DROPEFFECT_COPY
                 ] [ 2drop DROPEFFECT_NONE ] if
-                0
-            ] dip set-ulong-nth
+            ] dip 0 set-alien-unsigned-4
             S_OK
         ]
     } }