gnome-games r9027 - trunk/aisleriot/rules

[vpovirk svn gnome org]

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

Log:
aisleriot: do not allow no-op drops in Poker

This fixes a test failure (see bug 569936).


Modified:
   trunk/aisleriot/rules/poker.scm

Modified: trunk/aisleriot/rules/poker.scm
==============================================================================
--- trunk/aisleriot/rules/poker.scm	(original)
+++ trunk/aisleriot/rules/poker.scm	Thu Apr  9 04:32:23 2009
@@ -258,6 +258,7 @@
 (define (droppable? start-slot card-list end-slot)
   (and (or shuffle-mode
            (empty-slot? end-slot))
+       (not (= start-slot end-slot))
        (> end-slot 1)
        (or (> start-slot 1)
            (empty-slot? end-slot))))