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

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

diff --git a/basis/regexp/dfa/dfa.factor b/basis/regexp/dfa/dfa.factor
index e25c0f13b40ec93bf45bb37965fcd0d4dfa24c45..5c77741032499c70d8967074a5ba88f96cf00c8e 100644 (file)
--- a/basis/regexp/dfa/dfa.factor
+++ b/basis/regexp/dfa/dfa.factor
@@ -40,7 +40,7 @@ IN: regexp.dfa
 : find-transitions ( dfa-state nfa -- next-dfa-state )
     transitions>>
     '[ _ at keys [ condition-states ] map concat ] gather
-    [ tagged-epsilon? not ] filter ;
+    [ tagged-epsilon? ] reject ;
 
 : add-todo-state ( state visited-states new-states -- )
     2over ?adjoin [ nip push ] [ 3drop ] if ;