From 766eb8b47e19ed17f35bb819b708546c2117435f Mon Sep 17 00:00:00 2001
From: Aaron Schaefer <aaron@elasticdog.com>
Date: Thu, 7 May 2009 11:20:01 -0400
Subject: [PATCH] Add docs for best-hand in poker vocab

---
 extra/poker/poker-docs.factor | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/extra/poker/poker-docs.factor b/extra/poker/poker-docs.factor
index 09019a29d7..ad2131870e 100644
--- a/extra/poker/poker-docs.factor
+++ b/extra/poker/poker-docs.factor
@@ -28,3 +28,11 @@ HELP: >value
         "\"AC KC QC JC TC\" <hand> >value ." "\"Straight Flush\"" }
 }
 { $notes "This should not be used as a basis for hand comparison." } ;
+
+HELP: best-hand
+{ $values { "str" string } { "hand" "a new hand" } }
+{ $description "Creates a new poker hand containing the best possible combination of the cards specified in " { $snippet "str" } "." }
+{ $examples
+    { $example "USING: kernel poker prettyprint ;"
+        "\"AS KD JC KH 2D 2S KH\" best-hand >value ." "\"Full House\"" }
+} ;