factor/basis/compiler/tests/redefine14.factor

USING: compiler.units definitions tools.test sequences ;
IN: compiler.tests.redefine14

TUPLE: bad ;

M: bad length 1 2 3 ;

[ ] [ [ M\\ bad length forget ] with-compilation-unit ] unit-test
1% image size reduction by not storing empty compiled-generic-uses and compiled-uses props 2008-11-22 23:46:57 -05:00			`USING: compiler.units definitions tools.test sequences ;`
			`IN: compiler.tests.redefine14`

Some new compiler tests 2009-05-01 07:48:33 -04:00			`TUPLE: bad ;`

			`M: bad length 1 2 3 ;`

factor: m: { a b } -> M\\ a b 2017-10-12 22:22:41 -04:00			`[ ] [ [ M\\ bad length forget ] with-compilation-unit ] unit-test`