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

2010-01-30 05:10:10 +13:00 · 2010-01-30 05:10:10 +13:00 · 7189342c19
parent 015a9d365d
commit 7189342c19
1 changed files with 2 additions and 1 deletions
--- 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 ;