hashtables: remove stack effects from generic methods.

db4
John Benediktsson 2013-03-23 16:56:17 -07:00
parent 8012f60829
commit 5d11ada701
1 changed files with 5 additions and 5 deletions

View File

@ -121,13 +121,13 @@ PRIVATE>
: <hashtable> ( n -- hash )
hashtable new [ reset-hash ] keep ; inline
M: hashtable at* ( key hash -- value ? )
M: hashtable at*
key@ [ 3 fixnum+fast slot t ] [ 2drop f f ] if ;
M: hashtable clear-assoc ( hash -- )
M: hashtable clear-assoc
[ init-hash ] [ array>> [ drop ((empty)) ] map! drop ] bi ;
M: hashtable delete-at ( key hash -- )
M: hashtable delete-at
[ nip ] [ key@ ] 2bi [
[ ((tombstone)) dup ] 2dip set-nth-pair
hash-deleted+
@ -135,13 +135,13 @@ M: hashtable delete-at ( key hash -- )
3drop
] if ;
M: hashtable assoc-size ( hash -- n )
M: hashtable assoc-size
[ count>> ] [ deleted>> ] bi - ; inline
: rehash ( hash -- )
[ >alist ] [ clear-assoc ] [ (rehash) ] tri ;
M: hashtable set-at ( value key hash -- )
M: hashtable set-at
dup ?grow-hash (set-at) ;
: associate ( value key -- hash )