Better word hashing, working on class vtable dispatch

[factor.git] / vm / types.c

diff --git a/vm/types.c b/vm/types.c
index 6fd7b2f0cd09367b7d1651bdd94d115dbf39b0f8..b45ba532ea9a4c4cafe1dadf612e2cf53817d75c 100644 (file)
--- a/vm/types.c
+++ b/vm/types.c
@@ -434,7 +434,7 @@ void primitive_word(void)
        vocabulary = dpop();
        name = dpop();
        word = allot_object(WORD_TYPE,sizeof(F_WORD));
-       word->hashcode = tag_fixnum((CELL)word); /* initial address */
+       word->hashcode = tag_fixnum(rand());
        word->name = name;
        word->vocabulary = vocabulary;
        word->primitive = tag_fixnum(0);