1 USING: eval tools.test compiler.units vocabs words
3 IN: compiler.tests.redefine8
5 ! Mixin redefinition did not recompile all necessary words.
7 [ ] [ [ "compiler.tests.redefine8" forget-vocab ] with-compilation-unit ] unit-test
10 "USING: kernel math math.order sorting ;
11 IN: compiler.tests.redefine8
13 INSTANCE: fixnum my-mixin
14 GENERIC: my-generic ( a -- b )
15 ! We add the bogus quotation here to hinder inlining
16 ! since otherwise we cannot trigger this bug.
17 M: my-mixin my-generic 1 + [ [ <=> ] sort ] drop ;"
23 IN: compiler.tests.redefine8
24 INSTANCE: float my-mixin"
29 1.0 "my-generic" "compiler.tests.redefine8" lookup-word execute