2009-04-29 20:39:04 -04:00
|
|
|
USING: kernel sequences prettyprint memory tools.test ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: compiler.tests.pic-problem-1
|
2009-04-29 20:39:04 -04:00
|
|
|
|
|
|
|
TUPLE: x ;
|
|
|
|
|
|
|
|
M: x length drop 0 ;
|
|
|
|
|
|
|
|
INSTANCE: x sequence
|
|
|
|
|
|
|
|
<< gc >>
|
|
|
|
|
|
|
|
CONSTANT: blah T{ x }
|
|
|
|
|
2009-08-13 20:21:44 -04:00
|
|
|
[ T{ x } ] [ blah ] unit-test
|