From 111d73a9015f421924f792afa1cc015d46ad2fea Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Sat, 12 Aug 2017 16:36:06 +0300
Subject: [PATCH] windows.dragdrop-listener: replace construct-boa with boa

---
 basis/windows/dragdrop-listener/dragdrop-listener.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index 3ba0bcaf6e..eecc3cc6b9 100644
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -33,7 +33,7 @@ IN: windows.dragdrop-listener
 TUPLE: listener-dragdrop hWnd last-drop-effect ;
 
 : <listener-dragdrop> ( hWnd -- object )
-    DROPEFFECT_NONE listener-dragdrop construct-boa ;
+    DROPEFFECT_NONE listener-dragdrop boa ;
 
 SYMBOL: +listener-dragdrop-wrapper+
 {