Fix tests broken by word hashcode change.

diff --git a/basis/compiler/cfg/linear-scan/allocation/allocation-tests.factor b/basis/compiler/cfg/linear-scan/allocation/allocation-tests.factor
index e1b97e3c49cd749b4bce4384f869d226c97b558b..18ba351dbf3664e42e72473c29cafdde127a165e 100644 (file)
--- 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 5c90e4956fa741400c5dbe9e58f2f1239082b4e7..e824005d5386fc165ee2780d7d93882f3a9f877f 100644 (file)
--- 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 83d89a9fc7932d1e537dd2f00644d5a5544e82e3..53159279105f9580543fd4612e39e389a788fc91 100644 (file)
--- 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 4226e25a4014982936e237be34ec6a25ca09cba0..803d1694c7398ab27991977266be199031fd5fcc 100644 (file)
--- 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." } ;