gnome-games r8893 - trunk/aisleriot/rules

[vpovirk svn gnome org]

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

Log:
aisleriot: do not count redundant deals as a move in Cruel

Deals count if they do not immediately follow the start of the game or a
deal, regardless of whether they change the arrangement of the tableau.

This fixes a test failure (see bug 569936).


Modified:
   trunk/aisleriot/rules/cruel.scm

Modified: trunk/aisleriot/rules/cruel.scm
==============================================================================
--- trunk/aisleriot/rules/cruel.scm	(original)
+++ trunk/aisleriot/rules/cruel.scm	Wed Mar 25 04:44:25 2009
@@ -109,7 +109,7 @@
 )
 
 (define (button-clicked slot-id)
-  (if (= stock slot-id)
+  (if (and (= stock slot-id) (not just-redealt))
       (redeal)
       #f
   )