gnome-games r9057 - trunk/aisleriot/rules

[vpovirk svn gnome org]

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

Log:
aisleriot: do not allow drops onto the stock 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	Mon Apr 13 05:10:35 2009
@@ -103,7 +103,7 @@
       (if (= start-slot end-slot)
 	  (= (get-value (car card-list)) 10)
 	  (and (not (empty-slot? end-slot))
-	       (not (= end-slot 17))
+	       (not (> end-slot 15))
 	       (= 10 (+ (get-value (car card-list))
 			(get-value (car (get-cards end-slot)))))))))