: sheeple-test ( -- string ) { } sheeple ;
: compiled-use? ( key word -- ? )
- "compiled-uses" word-prop 2 <groups> key? ;
+ "definition-dependencies" word-prop member-eq? ;
[ "sheeple" ] [ sheeple-test ] unit-test
[ t ] [ \ sheeple-test optimized? ] unit-test
[ ] [ "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