compiler.units: simpler update-existing? check.

diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index c949d6f6e9323c655b9f4db3c44f38b95252ed12..763461654c543b7ad30d284ee6189b57d787fb85 100644 (file)
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -138,7 +138,7 @@ 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 assoc-diff! assoc-empty? not ;
 
 : bump-effect-counter ( -- )
     bump-effect-counter? [
@@ -151,7 +151,7 @@ M: object always-bump-effect-counter? drop f ;
     [ drop ] [ notify-definition-observers notify-error-observers ] if ;
 
 : update-existing? ( defs -- ? )
-    new-words get keys diff empty? not ;
+    new-words get [ key? not ] curry any? ;
 
 : reset-pics? ( -- ? )
     outdated-generics get assoc-empty? not ;