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 USING: arrays assocs hashtables.private help.markup help.syntax
sequences ; kernel sequences ;
IN: hashtables IN: hashtables
ARTICLE: "hashtables.private" "Hashtable implementation details" 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." } ; { $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 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." } { $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." } { $warning "This word is in the " { $vocab-link "hashtables.private" } " vocabulary because it does not perform bounds checks." }
{ $side-effects "seq" } ; { $side-effects "seq" } ;

View File

@ -357,7 +357,7 @@ HELP: subwords
{ $example { $example
"USING: math.functions prettyprint words ;" "USING: math.functions prettyprint words ;"
"\\ sin subwords ." "\\ 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." } ; { $notes "Outputs " { $link f } " if the word isn't generic." } ;

View File

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

View File

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