From dfa763434e09d349f11d0adf6989d4adc961365b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 9 Jun 2015 20:37:55 -0700
Subject: [PATCH] Fix tests broken by word hashcode change.

---
 .../cfg/linear-scan/allocation/allocation-tests.factor        | 4 ++--
 basis/json/writer/writer-tests.factor                         | 2 +-
 basis/math/statistics/statistics-docs.factor                  | 4 ++--
 core/words/words-docs.factor                                  | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/basis/compiler/cfg/linear-scan/allocation/allocation-tests.factor b/basis/compiler/cfg/linear-scan/allocation/allocation-tests.factor
index e1b97e3c49..18ba351dbf 100644
--- a/basis/compiler/cfg/linear-scan/allocation/allocation-tests.factor
+++ b/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
diff --git a/basis/json/writer/writer-tests.factor b/basis/json/writer/writer-tests.factor
index 5c90e4956f..e824005d53 100644
--- a/basis/json/writer/writer-tests.factor
+++ b/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}""" }
diff --git a/basis/math/statistics/statistics-docs.factor b/basis/math/statistics/statistics-docs.factor
index 83d89a9fc7..5315927910 100644
--- a/basis/math/statistics/statistics-docs.factor
+++ b/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 } } }"
     }
 } ;
 
diff --git a/core/words/words-docs.factor b/core/words/words-docs.factor
index 4226e25a40..803d1694c7 100644
--- a/core/words/words-docs.factor
+++ b/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." } ;