Fix typo
parent
6745e0dad9
commit
ea4feee886
|
@ -197,7 +197,7 @@ ARTICLE: "tuple-introspection" "Tuple introspection"
|
||||||
|
|
||||||
ARTICLE: "tuple-examples" "Tuple examples"
|
ARTICLE: "tuple-examples" "Tuple examples"
|
||||||
"An example:"
|
"An example:"
|
||||||
{ $code "TUPLE: employee name salary position ;" }
|
{ $code "TUPLE: employee name position salary ;" }
|
||||||
"This defines a class word named " { $snippet "employee" } ", a predicate " { $snippet "employee?" } ", and the following slot accessors:"
|
"This defines a class word named " { $snippet "employee" } ", a predicate " { $snippet "employee?" } ", and the following slot accessors:"
|
||||||
{ $table
|
{ $table
|
||||||
{ "Reader" "Writer" "Setter" "Changer" }
|
{ "Reader" "Writer" "Setter" "Changer" }
|
||||||
|
@ -237,7 +237,7 @@ ARTICLE: "tuple-examples" "Tuple examples"
|
||||||
" checks counter check boa ;"
|
" checks counter check boa ;"
|
||||||
""
|
""
|
||||||
": biweekly-paycheck ( employee -- check )"
|
": biweekly-paycheck ( employee -- check )"
|
||||||
" dup name>> swap salary>> 26 / <check> ;"
|
" [ name>> ] [ salary>> 26 / ] bi <check> ;"
|
||||||
}
|
}
|
||||||
"An example of using a changer:"
|
"An example of using a changer:"
|
||||||
{ $code
|
{ $code
|
||||||
|
|
Loading…
Reference in New Issue