2008-11-22 23:46:57 -05:00
|
|
|
USING: compiler.units definitions tools.test sequences ;
|
|
|
|
IN: compiler.tests.redefine14
|
|
|
|
|
2008-11-22 23:47:40 -05:00
|
|
|
! TUPLE: bad ;
|
|
|
|
!
|
|
|
|
! M: bad length 1 2 3 ;
|
|
|
|
!
|
|
|
|
! [ ] [ [ { bad length } forget ] with-compilation-unit ] unit-test
|