From 98e77937999f3789f21b9c1e0d2aa3faf76d35f3 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 2 Oct 2011 13:47:33 -0700
Subject: [PATCH] words: prevent zero hashcodes.  Fixes #222.

---
 core/words/words.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/words/words.factor b/core/words/words.factor
index 3fa4baaff8..c791829ede 100644
--- 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)