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

[factor.git] / extra / irc / messages / base / base.factor

diff --git a/extra/irc/messages/base/base.factor b/extra/irc/messages/base/base.factor
index 637039ec02ced7c2d2b70ac557d62cc55d4f901b..3e8924dfc62dc0e0693bfe8801cd2eeaf5a7c95d 100644 (file)
--- a/extra/irc/messages/base/base.factor
+++ b/extra/irc/messages/base/base.factor
@@ -98,7 +98,7 @@ M: irc-message set-irc-command
     ] [ drop ] if* ;
 
 : define-irc-class ( class params -- )
-    [ { ":" "_" } member? not ] filter
+    [ { ":" "_" } member? ] reject
     [ irc-message ] dip define-tuple-class ;
 
 : define-irc-parameter-slots ( class params -- )