2009-09-25 19:50:08 -04:00
|
|
|
USING: math hashtables accessors kernel words hints
|
|
|
|
|
compiler.tree.debugger tools.test ;
|
|
|
|
|
IN: hints.tests
|
|
|
|
|
|
|
|
|
|
! Regression
|
|
|
|
|
GENERIC: blahblah ( a b c -- )
|
|
|
|
|
|
|
|
|
|
M: hashtable blahblah 2nip [ 1 + ] change-count drop ;
|
|
|
|
|
|
2017-10-01 10:51:31 -04:00
|
|
|
HINTS: m: { hashtable blahblah } { object fixnum object } { object word object } ;
|
2009-09-25 19:50:08 -04:00
|
|
|
|
2017-10-01 10:51:31 -04:00
|
|
|
{ t } [ m: { hashtable blahblah } { count>> count<< } inlined? ] unit-test
|