gnome-games r7673 - in trunk/aisleriot: . rules

[chpe svn gnome org]

Author: chpe
Date: Mon May 26 18:00:44 2008
New Revision: 7673
URL: http://svn.gnome.org/viewvc/gnome-games?rev=7673&view=rev

Log:
	* rules/spider.scm: Don't crash on double click. Bug #443307, patch by
	Vincent Povirk.

Modified:
   trunk/aisleriot/ChangeLog
   trunk/aisleriot/rules/spider.scm

Modified: trunk/aisleriot/rules/spider.scm
==============================================================================
--- trunk/aisleriot/rules/spider.scm	(original)
+++ trunk/aisleriot/rules/spider.scm	Mon May 26 18:00:44 2008
@@ -192,7 +192,8 @@
 
 (define (button-double-clicked slot)
   (and (member slot tableau)
-       (is-playable-stack (get-cards slot) (get-suit (get-cards slot)) 1)
+       (not (empty-slot? slot))
+       (is-playable-stack (get-cards slot) (get-suit (car (get-cards slot))) 1)
        (let ((card-list (list-head (get-cards slot) 13)))
             (remove-n-cards slot 13)
             (complete-transaction slot card-list (find-empty-slot foundation)))