change ERROR: words from throw-foo back to foo.

[factor.git] / extra / poker / poker.factor

diff --git a/extra/poker/poker.factor b/extra/poker/poker.factor
index 9979a3be5e4705709e7e342b3320241c922c17ec..50d0feebd14a60a951aa2d34c18bcb4a9e2a1d25 100644 (file)
--- a/extra/poker/poker.factor
+++ b/extra/poker/poker.factor
@@ -198,7 +198,7 @@ ERROR: no-card card deck ;
 
 : draw-specific-card ( card deck -- card )
     [ >ckf ] dip
-    2dup index [ swap remove-nth! drop ] [ throw-no-card ] if* ;
+    2dup index [ swap remove-nth! drop ] [ no-card ] if* ;
 
 : start-hands ( seq -- seq' deck )
     <deck> [ '[ [ _ draw-specific-card ] map ] map ] keep ;
@@ -248,7 +248,7 @@ ERROR: bad-suit-symbol ch ;
         { CHAR: D CHAR: D }
         { CHAR: H CHAR: H }
         { CHAR: C CHAR: C }
-    } ?at [ throw-bad-suit-symbol ] unless ;
+    } ?at [ bad-suit-symbol ] unless ;
 
 : card> ( string -- card )
     1 over [ symbol>suit ] change-nth >ckf ;