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

words: prevent zero hashcodes. Fixes #222.

John Benediktsson 2011-10-02 13:47:33 -07:00
parent 94f3ca3b8c
commit 593479f480
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/words/words.factor
View File

@ -169,7 +169,7 @@ M: word reset-word
] tri ; ] tri ;
: <word> ( name vocab -- word ) : <word> ( name vocab -- word )
2dup [ hashcode ] bi@ bitxor >fixnum (word) dup new-word ; 2dup swap ":" glue hashcode >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)