[gnome-games/gnome-3-0] Fix poker patience scoring

[Christian Persch <chpe src gnome org>]

commit c44a8478379ee3695fd781be1a4fe9d4862002de
Author: Christian Persch <chpe gnome org>
Date:   Sat Apr 16 21:24:12 2011 +0200

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

 aisleriot/rules/poker.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/aisleriot/rules/poker.scm b/aisleriot/rules/poker.scm
index 636d6c8..2bb5c1b 100644
--- a/aisleriot/rules/poker.scm
+++ b/aisleriot/rules/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)