1 USING: math kernel kernel.private slots.private ;
2 IN: benchmark.typecheck3
6 : hello-n* ( obj -- val ) dup tag 2 eq? [ 3 slot ] [ 3 throw ] if ;
8 : foo ( obj -- obj n ) 0 100000000 [ over hello-n* + ] times ;
10 : typecheck-main ( -- ) 0 hello boa foo 2drop ;