Fix typo in poker test/doc example

diff --git a/extra/poker/poker-docs.factor b/extra/poker/poker-docs.factor
index 388239d549257968b716d8363e18218f97b9e411..fef47b859c212d40a21c8e33fb88b84499e6fd45 100644 (file)
--- a/extra/poker/poker-docs.factor
+++ b/extra/poker/poker-docs.factor
@@ -17,7 +17,7 @@ HELP: best-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\"" }
+        "\"AS KD JC KH 2D 2S KC\" best-hand >value ." "\"Full House\"" }
 } ;
 
 HELP: >cards

diff --git a/extra/poker/poker-tests.factor b/extra/poker/poker-tests.factor
index 3c8e5159ab8a842f7e3dd72c2d895138c4ed0e4f..6b05178462bfc4ffddb13fa2cb815ecb720471d3 100644 (file)
--- a/extra/poker/poker-tests.factor
+++ b/extra/poker/poker-tests.factor
@@ -27,4 +27,4 @@ IN: poker.tests
 [ t ] [ "7C 5D 4H 3S 2C" "7D 5D 4D 3C 2S" [ <hand> ] bi@ = ] unit-test
 [ f ] [ "7C 5D 4H 3S 2C" "7D 5D 4D 3C 2S" [ <hand> ] bi@ eq? ] unit-test
 
-[ 190 ] [ "AS KD JC KH 2D 2S KH" best-hand value>> ] unit-test
+[ 190 ] [ "AS KD JC KH 2D 2S KC" best-hand value>> ] unit-test