gnome-games r9045 - trunk/aisleriot/rules

[vpovirk svn gnome org]

Author: vpovirk
Date: Mon Apr 13 05:08:55 2009
New Revision: 9045
URL: http://svn.gnome.org/viewvc/gnome-games?rev=9045&view=rev

Log:
aisleriot: allow moves from the foundation to the tableau in Seahaven

This brings droppable? more in line with button-released.

This fixes a test failure (see bug 569963).


Modified:
   trunk/aisleriot/rules/seahaven.scm

Modified: trunk/aisleriot/rules/seahaven.scm
==============================================================================
--- trunk/aisleriot/rules/seahaven.scm	(original)
+++ trunk/aisleriot/rules/seahaven.scm	Mon Apr 13 05:08:55 2009
@@ -99,10 +99,7 @@
 			  (get-suit (car card-list)))
 		       (= (get-value (get-top-card end-slot))
 			  (+ 1 (get-value (car (reverse card-list)))))))
-              (< (length card-list) (+ 2 free-reserves))
-	      (or (> start-slot 7)
-		  (and (> start-slot 1)
-		       (< start-slot 6)))))
+              (< (length card-list) (+ 2 free-reserves))))
 	((and (> end-slot 1) ; The free reserves
 	      (< end-slot 6))
 	 (and (= (length card-list) 1)