steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/statistics/statistics-docs.factor
View File

@ -96,7 +96,7 @@ HELP: histogram-by
{ $example "! Count the number of times letters and non-letters appear in a sequence." { $example "! Count the number of times letters and non-letters appear in a sequence."
"USING: prettyprint math.statistics unicode.categories ;" "USING: prettyprint math.statistics unicode.categories ;"
"\"aaa123bc\" [ letter? ] histogram-by ." "\"aaa123bc\" [ letter? ] histogram-by ."
"H{ { f 3 } { t 5 } }" "H{ { t 5 } { f 3 } }"
} }
} ; } ;

2
core/hashtables/hashtables-docs.factor
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." } ; { $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 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." } ; { $description "Outputs the next hashtable search index." } ;
HELP: key@ HELP: key@

2
core/hashtables/hashtables.factor
View File

@ -17,7 +17,7 @@ TUPLE: hashtable
: hash@ ( key array -- i ) : hash@ ( key array -- i )
[ hashcode >fixnum dup fixnum+fast ] dip wrap ; inline [ 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 2 fixnum+fast [ fixnum+fast over wrap ] keep ; inline
: no-key ( key array -- array n ? ) nip f f ; inline : no-key ( key array -- array n ? ) nip f f ; inline