words: prevent zero hashcodes. Fixes #222.
parent
671f19d70f
commit
98e7793799
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue