diff --git a/basis/compiler/tests/redefine3.factor b/basis/compiler/tests/redefine3.factor index 913111b8ea..93b1e6fa92 100644 --- a/basis/compiler/tests/redefine3.factor +++ b/basis/compiler/tests/redefine3.factor @@ -14,7 +14,7 @@ M: empty-mixin sheeple drop "wake up" ; inline : sheeple-test ( -- string ) { } sheeple ; : compiled-use? ( key word -- ? ) - "compiled-uses" word-prop 2 key? ; + "definition-dependencies" word-prop member-eq? ; [ "sheeple" ] [ sheeple-test ] unit-test [ t ] [ \ sheeple-test optimized? ] unit-test diff --git a/core/generic/generic-tests.factor b/core/generic/generic-tests.factor index 5a98173a89..ff38ee39ea 100644 --- a/core/generic/generic-tests.factor +++ b/core/generic/generic-tests.factor @@ -207,8 +207,7 @@ M: integer forget-test 3 + ; [ ] [ "IN: generic.tests USE: math FORGET: M\\ integer forget-test" eval( -- ) ] unit-test [ { } ] [ - \ + compiled-usage keys - [ method-body? ] filter + \ + effect-dependencies-of keys [ method-body? ] filter [ "method-generic" word-prop \ forget-test eq? ] filter ] unit-test