hash-sets: simplify <hash-set>.
parent
63514bbbf8
commit
8c07160aa9
|
@ -87,7 +87,7 @@ TUPLE: hash-set
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: <hash-set> ( capacity -- hash-set )
|
: <hash-set> ( capacity -- hash-set )
|
||||||
hash-set new [ reset-hash ] keep ; inline
|
[ 0 0 ] dip <hash-array> hash-set boa ; inline
|
||||||
|
|
||||||
M: hash-set in?
|
M: hash-set in?
|
||||||
key@ 2nip ;
|
key@ 2nip ;
|
||||||
|
|
Loading…
Reference in New Issue