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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/hashtables/hashtables.factor
View File

@ -192,9 +192,6 @@ M: hashtable assoc-like
[ 6 fixnum-shift-fast ] [ -2 fixnum-shift-fast ] bi [ 6 fixnum-shift-fast ] [ -2 fixnum-shift-fast ] bi
fixnum+fast fixnum+fast ; inline fixnum+fast fixnum+fast ; inline
: 2hashcode ( obj1 obj2 -- hash )
[ hashcode ] bi@ hash-combine ; inline
ERROR: malformed-hashtable-pair seq pair ; ERROR: malformed-hashtable-pair seq pair ;
: check-hashtable ( seq -- seq ) : check-hashtable ( seq -- seq )

2
core/words/words.factor
View File

@ -188,7 +188,7 @@ M: word reset-word
] tri ; ] tri ;
: <word> ( name vocab -- word ) : <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 ) : <uninterned-word> ( name -- word )
f \ <uninterned-word> counter >fixnum (word) f \ <uninterned-word> counter >fixnum (word)