compiler.units: fix call-next-method call site recompilation

diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index 386d5750bfe1cf985720ca8249b57095981ef8f0..9fe13ba3ed69e3722c5490d421b08ee0b797f649 100644 (file)
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -51,7 +51,8 @@ HOOK: update-call-sites compiler-impl ( class generic -- words )
 M: generic update-generic ( class generic -- )
     [ changed-call-sites ]
     [ remake-generic drop ]
-    2bi ;
+    [ changed-conditionally drop ]
+    2tri ;
 
 M: sequence update-methods ( class seq -- )
     implementors [ update-generic ] with each ;