1 ! (c)2009 Joe Groff bsd license
2 USING: kernel memory.pools tools.test ;
8 foo 2 foo <pool> set-class-pool
10 foo new-from-pool drop
11 foo class-pool pool-size
14 { T{ foo } T{ foo } f } [
15 foo 2 foo <pool> set-class-pool
23 foo 2 foo <pool> set-class-pool