gnome-games r8894 - trunk/aisleriot/rules

[vpovirk svn gnome org]

Author: vpovirk
Date: Wed Mar 25 04:44:33 2009
New Revision: 8894
URL: http://svn.gnome.org/viewvc/gnome-games?rev=8894&view=rev

Log:
aisleriot: fix clicks adding empty moves in Doublets

Before this change, clicking a slot other than the stock adds an empty
move to the history.

This fixes a test failure (see bug 569936).


Modified:
   trunk/aisleriot/rules/doublets.scm

Modified: trunk/aisleriot/rules/doublets.scm
==============================================================================
--- trunk/aisleriot/rules/doublets.scm	(original)
+++ trunk/aisleriot/rules/doublets.scm	Wed Mar 25 04:44:33 2009
@@ -113,8 +113,8 @@
    (flip-stock 0 1 2))
 
 (define (button-clicked slot-id)
-  (if (= slot-id 0)
-      (do-deal-next-cards)))
+  (and (= slot-id 0)
+       (do-deal-next-cards)))
 
 (define (button-double-clicked slot)
   (if (and (not (empty-slot? slot))