words: prevent zero hashcodes. Fixes #222.

2011-10-02 13:47:33 -07:00 · 2011-10-02 13:47:33 -07:00 · 98e7793799
parent 671f19d70f
commit 98e7793799
1 changed files with 1 additions and 1 deletions
--- a/core/words/words.factor
+++ b/core/words/words.factor
@ -169,7 +169,7 @@ M: word reset-word
    ] tri ;

 : <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 )
    f \ <uninterned-word> counter >fixnum (word)