word hashcodes: Don't unsafely set the hashcode for a word to be a bignum. Revert...

diff --git a/basis/disjoint-sets/disjoint-sets-tests.factor b/basis/disjoint-sets/disjoint-sets-tests.factor
index e34f9e3b72ff21ca449246d7caad5db9ffd82973..25e10709902d6b8bc0a7fb2aa1bb7a4274b76e5e 100644 (file)
--- a/basis/disjoint-sets/disjoint-sets-tests.factor
+++ b/basis/disjoint-sets/disjoint-sets-tests.factor
@@ -2,7 +2,6 @@ USING: tools.test disjoint-sets namespaces slots.private ;
 IN: disjoint-sets.tests
 
 SYMBOL: +blah+
--405534154 +blah+ 1 set-slot
 
 SYMBOL: uf
 

diff --git a/core/words/words.factor b/core/words/words.factor
index b37d1e0580b07d161de41ff5de35d42331eab4d0..7dc7278b99ba2518a8e838b3893805bad5a5fac9 100644 (file)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -262,8 +262,9 @@ M: word forget*
         tri
     ] if ;
 
+! Can be foldable because the hashcode itself is immutable
 M: word hashcode*
-    nip 1 slot { integer } declare ; inline
+    nip 1 slot { fixnum } declare ; inline foldable
 
 M: word literalize <wrapper> ;