gnome-games r8678 - trunk/aisleriot/rules

[vpovirk svn gnome org]

Author: vpovirk
Date: Sat Feb  7 22:44:09 2009
New Revision: 8678
URL: http://svn.gnome.org/viewvc/gnome-games?rev=8678&view=rev

Log:
Bug 566972 - Fix cards disappearing without pairs in Thirteen


Modified:
   trunk/aisleriot/rules/thirteen.scm

Modified: trunk/aisleriot/rules/thirteen.scm
==============================================================================
--- trunk/aisleriot/rules/thirteen.scm	(original)
+++ trunk/aisleriot/rules/thirteen.scm	Sat Feb  7 22:44:09 2009
@@ -336,13 +336,13 @@
 			 (get-value (get-top-card end-slot))))))
 
 (define (button-released start-slot card-list end-slot)
-  (if (droppable? start-slot card-list end-slot)
-      (begin
-	(remove-card end-slot)
-	(check-for-flips start-slot)
-	(check-for-flips end-slot)
-	(check-double-flips start-slot end-slot)
-	(add-to-score! 2))))
+  (and (droppable? start-slot card-list end-slot)
+       (begin
+         (remove-card end-slot)
+         (check-for-flips start-slot)
+         (check-for-flips end-slot)
+         (check-double-flips start-slot end-slot)
+         (add-to-score! 2))))
 
 (define (button-clicked slot-id)
   (if (= slot-id 0)