gnome-games r8680 - trunk/aisleriot/rules

[vpovirk svn gnome org]

Author: vpovirk
Date: Sat Feb  7 23:06:31 2009
New Revision: 8680
URL: http://svn.gnome.org/viewvc/gnome-games?rev=8680&view=rev

Log:
aisleriot/rules/sir_tommy.scm: don't crash when clicking an empty stock


Modified:
   trunk/aisleriot/rules/sir_tommy.scm

Modified: trunk/aisleriot/rules/sir_tommy.scm
==============================================================================
--- trunk/aisleriot/rules/sir_tommy.scm	(original)
+++ trunk/aisleriot/rules/sir_tommy.scm	Sat Feb  7 23:06:31 2009
@@ -78,6 +78,7 @@
 
 (define (button-clicked slot-id)
   (and (= slot-id 0)
+       (not (empty-slot? 0))
        (empty-slot? 1)
        (deal-cards-face-up 0 '(1))))