13 lines
348 B
Factor
13 lines
348 B
Factor
USING: kernel tools.test definitions compiler.units ;
|
|
IN: compiler.tests.redefine21
|
|
|
|
: a ( -- ) ;
|
|
<< : b ( quot -- ) call a ; inline >>
|
|
{ } [ [ ] b ] unit-test
|
|
{ } [ [ { a b } forget-all ] with-compilation-unit ] unit-test
|
|
|
|
: A ( -- ) ;
|
|
<< : B ( -- ) A ; inline >>
|
|
{ } [ B ] unit-test
|
|
{ } [ [ { A B } forget-all ] with-compilation-unit ] unit-test
|