1 USING: generic kernel kernel.private math memory prettyprint io
2 sequences tools.test words namespaces layouts classes
3 classes.builtin arrays quotations ;
6 [ [ ] instances ] must-infer
8 ! Code GC wasn't kicking in when needed
9 : leak-step 800000 f <array> 1quotation call drop ;
11 : leak-loop 100 [ leak-step ] times ;
13 [ ] [ leak-loop ] unit-test
15 TUPLE: testing x y z ;
17 [ save-image-and-exit ] must-fail
23 "predicate" word-prop instances [
31 2 [ [ [ 3 throw ] instances ] must-fail ] times