gnome-games r8890 - trunk/aisleriot/rules

[vpovirk svn gnome org]

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

Log:
aisleriot: forbid moves from waste to waste in Camelot

This fixes a test failure (see bug 569936).


Modified:
   trunk/aisleriot/rules/camelot.scm

Modified: trunk/aisleriot/rules/camelot.scm
==============================================================================
--- trunk/aisleriot/rules/camelot.scm	(original)
+++ trunk/aisleriot/rules/camelot.scm	Wed Mar 25 04:44:00 2009
@@ -91,7 +91,8 @@
 
 (define (droppable? start-slot card-list end-slot)
   (if add-stage
-      (and (empty-slot? end-slot) 
+      (and (not (= end-slot 17))
+           (empty-slot? end-slot)
 	   (cond ((= (get-value (car card-list)) king)
 		  (member end-slot '(0 3 12 15)))
 		 ((= (get-value (car card-list)) queen)