gnome-games r7672 - in branches/gnome-2-22/aisleriot: . rules

[chpe svn gnome org]

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

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

Modified:
   branches/gnome-2-22/aisleriot/ChangeLog
   branches/gnome-2-22/aisleriot/rules/spider.scm

Modified: branches/gnome-2-22/aisleriot/rules/spider.scm
==============================================================================
--- branches/gnome-2-22/aisleriot/rules/spider.scm	(original)
+++ branches/gnome-2-22/aisleriot/rules/spider.scm	Mon May 26 18:00:10 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)))