compiler.units: simplify checks.

2013-03-10 09:36:35 -07:00 · 2013-03-10 09:36:35 -07:00 · b4ac67dd25
parent a595e3c54c
commit b4ac67dd25
1 changed files with 2 additions and 1 deletions
--- 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? [