hints: fix two examples and formatting in docs

db4
Keita Haga 2010-11-30 04:53:11 +09:00
parent e7796b4118
commit 3e7af33343
1 changed files with 20 additions and 14 deletions

View File

@ -24,10 +24,16 @@ HELP: HINTS:
{ $description "Defines specialization hints for a word or a method." { $description "Defines specialization hints for a word or a method."
$nl $nl
"Each sequence in the list will cause a specialized version of the word to be compiled. Classes are tested for using their predicate, and literals are tested using " { $link eq? } "." } "Each sequence in the list will cause a specialized version of the word to be compiled. Classes are tested for using their predicate, and literals are tested using " { $link eq? } "." }
{ $examples "The " { $link append } " word has a specializer for the very common case where two strings or two arrays are appended:" { $examples
{ $code "HINTS: append { string string } { array array } ;" } "The " { $link append } " word has a specializer for the very common case where two strings or two arrays are appended:"
{ $code
"USING: arrays hints sequences strings syntax ;"
"HINTS: append { string string } { array array } ;"
}
"Specializers can also be defined on methods:" "Specializers can also be defined on methods:"
{ $code { $code
"USING: assocs hashtables hints kernel sequences"
"syntax ;"
"GENERIC: count-occurrences ( elt obj -- n )" "GENERIC: count-occurrences ( elt obj -- n )"
"" ""
"M: sequence count-occurrences [ = ] with count ;" "M: sequence count-occurrences [ = ] with count ;"
@ -35,8 +41,8 @@ $nl
"M: assoc count-occurrences" "M: assoc count-occurrences"
" swap [ = nip ] curry assoc-filter assoc-size ;" " swap [ = nip ] curry assoc-filter assoc-size ;"
"" ""
"HINTS: M\ sequence count-occurrences { object array } ;" "HINTS: M\\ sequence count-occurrences { object array } ;"
"HINTS: M\ assoc count-occurrences { object hashtable } ;" "HINTS: M\\ assoc count-occurrences { object hashtable } ;"
} }
} ; } ;