gnome-games r8343 - trunk/aisleriot/rules

[chpe svn gnome org]

Author: chpe
Date: Sun Nov 30 22:34:36 2008
New Revision: 8343
URL: http://svn.gnome.org/viewvc/gnome-games?rev=8343&view=rev

Log:
Be more strict about rules in Seahaven. Bug #556016, patch by Vincent
Povirk.

Modified:
   trunk/aisleriot/rules/seahaven.scm

Modified: trunk/aisleriot/rules/seahaven.scm
==============================================================================
--- trunk/aisleriot/rules/seahaven.scm	(original)
+++ trunk/aisleriot/rules/seahaven.scm	Sun Nov 30 22:34:36 2008
@@ -99,6 +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)))))