Fix help-lint errors for recent hashtable changes.

db4
John Benediktsson 2011-10-02 17:49:11 -07:00
parent 32111a1095
commit 3b72b641e0
3 changed files with 3 additions and 3 deletions

View File

@ -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 } }"
}
} ;

View File

@ -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@

View File

@ -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