diff --git a/basis/disjoint-sets/disjoint-sets-tests.factor b/basis/disjoint-sets/disjoint-sets-tests.factor index e34f9e3b72..25e1070990 100644 --- 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 b37d1e0580..7dc7278b99 100644 --- 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 ;