steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hashtables: simplify <hashtable>.

db4
John Benediktsson 2014-01-08 09:56:00 -08:00
parent 8c07160aa9
commit 6b0e72a475
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/hashtables/hashtables.factor
View File

@ -119,7 +119,7 @@ TUPLE: hashtable
PRIVATE> PRIVATE>
: <hashtable> ( n -- hash ) : <hashtable> ( n -- hash )
hashtable new [ reset-hash ] keep ; inline [ 0 0 ] dip <hash-array> hashtable boa ; inline
M: hashtable at* M: hashtable at*
key@ [ 3 fixnum+fast slot t ] [ 2drop f f ] if ; key@ [ 3 fixnum+fast slot t ] [ 2drop f f ] if ;