From db14fff1aebfb21cf0ec94066fefe743461cde91 Mon Sep 17 00:00:00 2001
From: Keita Haga <keitahaga@mail.com>
Date: Mon, 17 Jan 2011 00:25:49 +0900
Subject: [PATCH] combinators: minor improvement in usage example of case word

---
 core/combinators/combinators-docs.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/core/combinators/combinators-docs.factor b/core/combinators/combinators-docs.factor
index 23ead78d94..9c22221e70 100644
--- a/core/combinators/combinators-docs.factor
+++ b/core/combinators/combinators-docs.factor
@@ -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!"
     }
 } ;