Fix tests broken by word hashcode change.

basis/compiler/cfg/linear-scan/allocation/allocation-tests.factor

@@ -20,13 +20,13 @@ IN: compiler.cfg.linear-scan.allocation.tests
 
 cpu x86.64? [
     ! assign-registers
-    { RCX } [
+    { R8 } [
         { { int-regs V{ } } { float-regs V{ } } } active-intervals set
         unassigned-interval dup machine-registers assign-register reg>>
     ] unit-test
 
     ! register-status
-    { { RCX 1/0. } } [
+    { { R8 1/0. } } [
         { { int-regs V{ } } { float-regs V{ } } } active-intervals set
         unassigned-interval machine-registers register-status
     ] unit-test

basis/json/writer/writer-tests.factor

@@ -44,7 +44,7 @@ TUPLE: person first-name age ;
 { """{"":4}""" }
 [ H{ { "" 2 } { "" 4 } } >json ] unit-test
 
-{ """{"":5,"false":2,"true":4}""" }
+{ """{"true":4,"false":2,"":5}""" }
 [ H{ { f 2 } { t 4 } { "" 5 } } >json ] unit-test
 
 { """{"3.1":3}""" }

basis/math/statistics/statistics-docs.factor

@@ -262,7 +262,7 @@ HELP: collect-by
     { $example
                "USING: math math.statistics prettyprint ;"
                "{ 11 12 13 14 14 13 12 11 } [ odd? ] collect-by ."
-               "H{ { f V{ 12 14 14 12 } } { t V{ 11 13 13 11 } } }"
+               "H{ { t V{ 11 13 13 11 } } { f V{ 12 14 14 12 } } }"
     }
 }
 { $notes "May be named " { $snippet "group-by" } " in other languages." } ;
@@ -278,7 +278,7 @@ HELP: collect-index-by
     { $example
                "USING: math math.statistics prettyprint ;"
                "{ 11 12 13 14 14 13 12 11 } [ odd? ] collect-index-by ."
-               "H{ { f V{ 1 3 4 6 } } { t V{ 0 2 5 7 } } }"
+               "H{ { t V{ 0 2 5 7 } } { f V{ 1 3 4 6 } } }"
     }
 } ;
 

core/words/words-docs.factor

@@ -357,7 +357,7 @@ HELP: subwords
   { $example
     "USING: math.functions prettyprint words ;"
     "\\ sin subwords ."
-    "{ M\\ object sin M\\ complex sin M\\ real sin M\\ float sin }"
+    "{ M\\ object sin M\\ float sin M\\ complex sin M\\ real sin }"
   }
 }
 { $notes "Outputs " { $link f } " if the word isn't generic." } ;