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

[factor.git] / basis / regexp / parser / parser.factor

diff --git a/basis/regexp/parser/parser.factor b/basis/regexp/parser/parser.factor
index d9ab28ebe19615562fc614ec91b7d5e2b609901e..5aeb9aa7084f0fc3049a98e3e9ee191b96f506db 100644 (file)
--- a/basis/regexp/parser/parser.factor
+++ b/basis/regexp/parser/parser.factor
@@ -22,7 +22,7 @@ ERROR: bad-class name ;
 
 : simple ( str -- simple )
     ! Alternatively, first collation key level?
-    >case-fold [ " \t_" member? not ] filter ;
+    >case-fold [ " \t_" member? ] reject ;
 
 : simple-table ( seq -- table )
     [ [ simple ] keep ] H{ } map>assoc ;