compiler.units: simplify checks.

diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index 763461654c543b7ad30d284ee6189b57d787fb85..7623ca3ad518822e2493bcbb1489f5f4e6c6dea8 100644 (file)
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -138,7 +138,8 @@ M: object always-bump-effect-counter? drop f ;
     changed-effects get
     maybe-changed get
     changed-definitions get [ drop always-bump-effect-counter? ] assoc-filter
-    3array assoc-combine new-words get assoc-diff! assoc-empty? not ;
+    3array assoc-combine
+    new-words get [ nip key? not ] curry assoc-any? ;
 
 : bump-effect-counter ( -- )
     bump-effect-counter? [