use reject instead of [ ... not ] filter.

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

diff --git a/basis/windows/messages/messages.factor b/basis/windows/messages/messages.factor
index b9c8fe9fd8598f1f8ade567ab2ae21575e250740..1b8faa32214acc7c994d3cd8794fcd51a492c7fa 100644 (file)
--- a/basis/windows/messages/messages.factor
+++ b/basis/windows/messages/messages.factor
@@ -7,7 +7,7 @@ IN: windows.messages
 SYMBOL: windows-messages
 
 "windows.messages" words
-[ name>> "windows-message" head? not ] filter
+[ name>> "windows-message" head? ] reject
 [ dup execute swap ] { } map>assoc
 windows-messages set-global