windows.dropfiles[-docs]: remove unnecessary symbol

[factor.git] / basis / windows / dropfiles / dropfiles.factor

diff --git a/basis/windows/dropfiles/dropfiles.factor b/basis/windows/dropfiles/dropfiles.factor
index 0cf62c0298c913f397b1d63745817dd272484429..1080dbbebf13d9747efd0218651cf4302b9b1593 100644 (file)
--- a/basis/windows/dropfiles/dropfiles.factor
+++ b/basis/windows/dropfiles/dropfiles.factor
@@ -35,11 +35,9 @@ IN: windows.dropfiles
 : do-once ( guard-variable quot -- )
     dupd '[ t _ set-global @ ] [ get-global ] dip unless ; inline
 
-SYMBOL: init-message-filter-done?
-
 ! Ignore the errors: on WinXP the function is missing, and is not needed.
 : init-message-filter ( -- )
-    init-message-filter-done? [
+    \ init-message-filter [
         [ (init-message-filter) ] [ drop ] recover
     ] do-once ;