[aisleriot] Fix poker patience scoring



commit 77169a279e5be0a1ad42a6c6d201e29954cff624
Author: Christian Persch <chpe gnome org>
Date:   Sat Apr 16 21:23:29 2011 +0200

    Fix poker patience scoring
    
    Poker evaluates four-of-a-kind incorrectly.
    
    Bug #606379.

 games/poker.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/games/poker.scm b/games/poker.scm
index 636d6c8..2bb5c1b 100644
--- a/games/poker.scm
+++ b/games/poker.scm
@@ -102,8 +102,8 @@
 	  (cadddr ORDERED-LIST))
        (or (= (car ORDERED-LIST)
 	      (cadr ORDERED-LIST))
-	   (= (caddddr ORDERED-LIST))
-	   (cadr ORDERED-LIST))
+	   (= (caddddr ORDERED-LIST)
+	      (cadr ORDERED-LIST)))
        (add-to-score! 16)))
 
 (define (checking-straight-list num-list)



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]