hashtables: remove the 2hashcode word for now.

db4
John Benediktsson 2015-06-09 16:46:02 -07:00
parent 390dd23261
commit 95c34c41b7
2 changed files with 1 additions and 4 deletions

View File

@ -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 )

View File

@ -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)