words: prevent zero hashcodes. Fixes #222.

db4
John Benediktsson 2011-10-02 13:47:33 -07:00
parent 671f19d70f
commit 98e7793799
1 changed files with 1 additions and 1 deletions

View File

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