assocs.extras: Move some often-used words to core

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

diff --git a/basis/regexp/disambiguate/disambiguate.factor b/basis/regexp/disambiguate/disambiguate.factor
index 37e725869ed4fda024eea5a194aa96550ef269e7..852f18ef2204137eaad79a6550f462d0065c6f58 100644 (file)
--- a/basis/regexp/disambiguate/disambiguate.factor
+++ b/basis/regexp/disambiguate/disambiguate.factor
@@ -58,7 +58,7 @@ TUPLE: parts in out ;
                 _ swap '[ _ get-transitions ] assoc-map
                 harvest-values
             ] [
-                [ drop tagged-epsilon? ] assoc-filter
+                [ tagged-epsilon? ] filter-keys
             ] bi H{ } assoc-union-as
         ] assoc-map
     ] change-transitions ;