fix unit test

diff --git a/extra/poker/poker-tests.factor b/extra/poker/poker-tests.factor
index 3e5bab9ac6f109c48feae1f2dbb185e1dfea7a5d..fc10a136595e82d76dd4ed11f88fe78c455efaf2 100644 (file)
--- a/extra/poker/poker-tests.factor
+++ b/extra/poker/poker-tests.factor
@@ -1,4 +1,5 @@
-USING: accessors kernel math.order poker poker.private tools.test ;
+USING: accessors kernel math math.order poker poker.private
+tools.test ;
 IN: poker.tests
 
 [ 134236965 ] [ "KD" >ckf ] unit-test

diff --git a/extra/poker/poker.factor b/extra/poker/poker.factor
index 9c68aaaa975679c2ae196a4fefffa047c03dcc8f..59f50509e4513bf7c6a106cf98253a0426df7816 100644 (file)
--- a/extra/poker/poker.factor
+++ b/extra/poker/poker.factor
@@ -260,5 +260,8 @@ ERROR: bad-suit-symbol ch ;
 : value>hand-name ( value -- string )
     value>rank VALUE_STR nth ;
 
+: string>hand-name ( string -- string' )
+    string>value value>hand-name ;
+
 SYNTAX: HAND{
     "}" parse-tokens [ card> ] { } map-as suffix! ;