12 lines
337 B
Factor
12 lines
337 B
Factor
|
IN: compiler.tests.redefine22
|
||
|
|
USING: kernel sequences compiler.units vocabs tools.test definitions ;
|
||
|
|
|
||
|
|
TUPLE: ttt ;
|
||
|
|
INSTANCE: ttt sequence
|
||
|
|
M: ttt new-sequence 2drop ttt new ;
|
||
|
|
|
||
|
|
: www-1 ( a -- b ) T{ ttt } new-sequence ;
|
||
|
|
|
||
|
|
! This used to break with a compiler error in the above word
|
||
|
|
[ ] [ [ \ ttt forget ] with-compilation-unit ] unit-test
|