extra/benchmark/typecheck4/typecheck4.factor

   1 USING: math kernel kernel.private slots.private ;
   2 IN: benchmark.typecheck4
   3
   4 TUPLE: hello n ;
   5
   6 : hello-n* 3 slot ;
   7
   8 : foo 0 100000000 [ over hello-n* + ] times ;
   9
  10 : typecheck-main 0 hello boa foo 2drop ;
  11
  12 MAIN: typecheck-main