1 USING: eval tools.test compiler.units vocabs words kernel ;
2 IN: compiler.tests.redefine5
4 ! Regression: if dispatch was eliminated but method was not inlined,
5 ! compiled usage information was not recorded.
7 [ "compiler.tests.redefine5" forget-vocab ] with-compilation-unit
10 "USING: sorting kernel math.order ;
11 IN: compiler.tests.redefine5
12 GENERIC: my-generic ( a -- b )
13 M: object my-generic [ <=> ] sort ;
14 : my-inline ( a -- b ) my-generic ;"
20 IN: compiler.tests.redefine5
22 M: my-tuple my-generic drop 0 ;" eval( -- )
26 "my-tuple" "compiler.tests.redefine5" lookup boa
27 "my-inline" "compiler.tests.redefine5" lookup execute