Fix help-lint errors for recent hashtable changes.

diff --git a/basis/math/statistics/statistics-docs.factor b/basis/math/statistics/statistics-docs.factor
index 835fddc558618800aa9f7f14ce64a77e29b9cb0c..4eaf022237f5aba1ab19dc7f3cdebe8eca43f3fa 100644 (file)
--- a/basis/math/statistics/statistics-docs.factor
+++ b/basis/math/statistics/statistics-docs.factor
@@ -96,7 +96,7 @@ HELP: histogram-by
     { $example "! Count the number of times letters and non-letters appear in a sequence."
                "USING: prettyprint math.statistics unicode.categories ;"
                "\"aaa123bc\" [ letter? ] histogram-by ."
-               "H{ { f 3 } { t 5 } }"
+               "H{ { t 5 } { f 3 } }"
     }
 } ;
 

diff --git a/core/hashtables/hashtables-docs.factor b/core/hashtables/hashtables-docs.factor
index 144e7433c2561fd7889bbec1a0867d7ed8fa4334..18594a81417394da3e8f3f9e74abbefa4072b001 100644 (file)
--- a/core/hashtables/hashtables-docs.factor
+++ b/core/hashtables/hashtables-docs.factor
@@ -66,7 +66,7 @@ HELP: hash@
 { $description "Computes the index to begin searching from the hashcode of the key. Always outputs an even value since keys are stored at even indices of the underlying array." } ;
 
 HELP: probe
-{ $values { "array" "the underlying array of a hashtable" } { "i" "a search index" } }
+{ $values { "array" "the underlying array of a hashtable" } { "i" "a search index" } { "probe#" "an incrementing counter" } }
 { $description "Outputs the next hashtable search index." } ;
 
 HELP: key@

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index 858f0e19abfb7fe837e2cceed04702d5993a0c7d..98218ecbe81ee533d7d5e7ebdef19564387e0811 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -17,7 +17,7 @@ TUPLE: hashtable
 : hash@ ( key array -- i )
     [ hashcode >fixnum dup fixnum+fast ] dip wrap ; inline
 
-: probe ( array i probe# -- array i' probe# )
+: probe ( array i probe# -- array i probe# )
     2 fixnum+fast [ fixnum+fast over wrap ] keep ; inline
 
 : no-key ( key array -- array n ? ) nip f f ; inline