hashtables: remove the 2hashcode word for now.
parent
390dd23261
commit
95c34c41b7
|
@ -192,9 +192,6 @@ M: hashtable assoc-like
|
|||
[ 6 fixnum-shift-fast ] [ -2 fixnum-shift-fast ] bi
|
||||
fixnum+fast fixnum+fast ; inline
|
||||
|
||||
: 2hashcode ( obj1 obj2 -- hash )
|
||||
[ hashcode ] bi@ hash-combine ; inline
|
||||
|
||||
ERROR: malformed-hashtable-pair seq pair ;
|
||||
|
||||
: check-hashtable ( seq -- seq )
|
||||
|
|
|
@ -188,7 +188,7 @@ M: word reset-word
|
|||
] tri ;
|
||||
|
||||
: <word> ( name vocab -- word )
|
||||
2dup 2hashcode >fixnum (word) dup new-word ;
|
||||
2dup [ hashcode ] bi@ hash-combine >fixnum (word) dup new-word ;
|
||||
|
||||
: <uninterned-word> ( name -- word )
|
||||
f \ <uninterned-word> counter >fixnum (word)
|
||||
|
|
Loading…
Reference in New Issue