Fix some things broken by hashtable capacity changes.

db4
John Benediktsson 2015-07-14 21:45:39 -07:00
parent a98bbb672a
commit 41629dce2f
4 changed files with 6 additions and 6 deletions

View File

@ -1,5 +1,5 @@
USING: assocs hashtables.private help.markup help.syntax kernel
sequences ;
USING: arrays assocs hashtables.private help.markup help.syntax
kernel sequences ;
IN: hashtables
ARTICLE: "hashtables.private" "Hashtable implementation details"
@ -79,7 +79,7 @@ HELP: new-key@
{ $description "Searches the hashtable for the key using a quadratic probing strategy. If the key is not present in the hashtable, outputs the index where it should be stored." } ;
HELP: set-nth-pair
{ $values { "value" "the second element of the pair" } { "key" "the first element of the pair" } { "seq" sequence } { "n" "an index in the sequence" } }
{ $values { "value" "the second element of the pair" } { "key" "the first element of the pair" } { "array" array } { "n" "an index in the sequence" } }
{ $description "Stores a pair of values into the elements with index " { $snippet "n" } " and " { $snippet "n+1" } ", respectively." }
{ $warning "This word is in the " { $vocab-link "hashtables.private" } " vocabulary because it does not perform bounds checks." }
{ $side-effects "seq" } ;

View File

@ -357,7 +357,7 @@ HELP: subwords
{ $example
"USING: math.functions prettyprint words ;"
"\\ sin subwords ."
"{ M\\ object sin M\\ float sin M\\ complex sin M\\ real sin }"
"{ M\\ object sin M\\ complex sin M\\ real sin M\\ float sin }"
}
}
{ $notes "Outputs " { $link f } " if the word isn't generic." } ;

View File

@ -13,7 +13,7 @@ IN: html.parser.printer.tests
] unit-test
{
" rel='nofollow' href='http://www.google.com'"
" href='http://www.google.com' rel='nofollow'"
} [
H{ { "href" "http://www.google.com" } { "rel" "nofollow" } }
[ print-attributes ] with-string-writer

View File

@ -164,7 +164,7 @@ foo: 1
<<:
baz: 3
" yaml> ."""
"""H{ { "bar" 2 } { "foo" 1 } { "baz" 3 } }""" }
"""H{ { "baz" 3 } { "foo" 1 } { "bar" 2 } }""" }
{ $heading "!!value" }
"See " { $url "http://yaml.org/type/value.html" } $nl
{ $example """USING: yaml prettyprint ;