1 USING: math hashtables accessors kernel words hints
2 compiler.tree.debugger tools.test ;
6 GENERIC: blahblah ( a b c -- )
8 M: hashtable blahblah 2nip [ 1 + ] change-count drop ;
10 HINTS: M\ hashtable blahblah { object fixnum object } { object word object } ;
12 { t } [ M\ hashtable blahblah { count>> count<< } inlined? ] unit-test