gnome-games r9055 - trunk/aisleriot/rules

[vpovirk svn gnome org]

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

Log:
aisleriot: check free reserve slots in button-released in Seahaven

This fixes a test failure (see bug 569936).


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:10:19 2009
@@ -118,7 +118,8 @@
   (cond ((= start-slot end-slot)
 	 #f)
 	((> end-slot 7)
-	 (and (or (and (empty-slot? end-slot)
+	 (and (< (length card-list) (+ 2 free-reserves))
+	      (or (and (empty-slot? end-slot)
 		       (= (get-value (car (reverse card-list)))
 			  king)
 		       (move-n-cards! start-slot end-slot card-list))