diff --git a/basis/math/statistics/statistics-docs.factor b/basis/math/statistics/statistics-docs.factor index 835fddc558..4eaf022237 100644 --- 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 144e7433c2..18594a8141 100644 --- 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 858f0e19ab..98218ecbe8 100644 --- 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