windows.dropfiles[-docs]: remove unnecessary symbol

diff --git a/basis/windows/dropfiles/dropfiles-docs.factor b/basis/windows/dropfiles/dropfiles-docs.factor
index 661f8215dd6e7f0431760ea660288d85826665cc..1091001347e46e26c2ee51836ff0dc096d67ad4f 100644 (file)
--- a/basis/windows/dropfiles/dropfiles-docs.factor
+++ b/basis/windows/dropfiles/dropfiles-docs.factor
@@ -33,7 +33,7 @@ $nl
 "By default, WM_DROPFILES doesn't work either, because the necessary window messages are filtered out from the queue, but it is possible to configure the filters and make it work, see " { $link init-message-filter } "." ;
 
 HELP: init-message-filter
-{ $description "Call " { $snippet "ChangeWindowMessageFilter" } " to allow the window messages necessary for file dropping pass through the filters. This will have a process-wide effect, and will only be called once (when " { $link init-message-filter-done? } " is " { $link POSTPONE: f } ")."
+{ $description "Call " { $snippet "ChangeWindowMessageFilter" } " to allow the window messages necessary for file dropping pass through the filters. This will have a process-wide effect, and will only be called once."
 $nl
 "The API function is only available since Windows Vista, and is not needed in earlier versions. On Windows XP the missing function will cause an exception on the first call, which will be suppressed, and no more calls will be made." }
 { $notes "It is generally preferrable to use " { $snippet "ChangeWindowMessageFilterEx" } ", because it has a per-window-handle effect, thus gives a more fine-grained security control. Unfortunately, the " { $snippet "Ex" } "-version is only available since Windows 7, and in any case the " { $link add-wm-handler } " has global effect for all Factor native windows, so it's not like we are exposing any additional code to potential exploitation." } ;

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 ;