gnome-games r9031 - trunk/aisleriot/rules

[vpovirk svn gnome org]

Author: vpovirk
Date: Thu Apr  9 04:32:58 2009
New Revision: 9031
URL: http://svn.gnome.org/viewvc/gnome-games?rev=9031&view=rev

Log:
aisleriot: do not allow no-op moves in Zebra

This fixes a test failure (see bug 569936).


Modified:
   trunk/aisleriot/rules/zebra.scm

Modified: trunk/aisleriot/rules/zebra.scm
==============================================================================
--- trunk/aisleriot/rules/zebra.scm	(original)
+++ trunk/aisleriot/rules/zebra.scm	Thu Apr  9 04:32:58 2009
@@ -91,7 +91,8 @@
       #t))
 
 (define (droppable? start-slot card-list end-slot)
-  (cond ((> end-slot 9)
+  (cond ((= start-slot end-slot) #f)
+        ((> end-slot 9)
 	 (and (= (length card-list) 1)
 	      (not (empty-slot? end-slot))
 	      (not (eq? (is-red? (car card-list))