-USING: classes classes.tuple kernel sequences vocabs math ;
+USING: classes.tuple kernel sequences vocabs math ;
IN: benchmark.dispatch1
GENERIC: g ( obj -- obj )
M: x30 g ;
: my-classes ( -- seq )
- "benchmark.dispatch1" words [ tuple-class? ] filter ;
+ "benchmark.dispatch1" vocab-words [ tuple-class? ] filter ;
: a-bunch-of-objects ( -- seq )
my-classes [ new ] map ;
-: dispatch-benchmark ( -- )
+: dispatch1-benchmark ( -- )
1000000 a-bunch-of-objects
[ [ g drop ] each ] curry times ;
-MAIN: dispatch-benchmark
+MAIN: dispatch1-benchmark