combinators: minor improvement in usage example of case word

db4
Keita Haga 2011-01-17 00:25:49 +09:00
parent 8d2ceda8f3
commit db14fff1ae
1 changed files with 4 additions and 2 deletions

View File

@ -351,14 +351,16 @@ HELP: case
{ $code "dup X = [ drop Y ] [ dup Z = [ drop T ] [ no-case ] if ] if" }
}
{ $examples
{ $code
"SYMBOL: yes SYMBOL: no SYMBOL: maybe"
{ $example
"USING: combinators io kernel ;"
"SYMBOLS: yes no maybe ;"
"maybe {"
" { yes [ ] } ! Do nothing"
" { no [ \"No way!\" throw ] }"
" { maybe [ \"Make up your mind!\" print ] }"
" [ \"Invalid input; try again.\" print ]"
"} case"
"Make up your mind!"
}
} ;