gnome-games r9053 - trunk/aisleriot/rules

[vpovirk svn gnome org]

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

Log:
aisleriot: move give-status-message to game-continuable in Eagle Wing

This fixes a no-op move when clicking the stock

This fixes a test failure (see bug 569936).


Modified:
   trunk/aisleriot/rules/eagle_wing.scm

Modified: trunk/aisleriot/rules/eagle_wing.scm
==============================================================================
--- trunk/aisleriot/rules/eagle_wing.scm	(original)
+++ trunk/aisleriot/rules/eagle_wing.scm	Mon Apr 13 05:10:02 2009
@@ -125,8 +125,7 @@
   (if (member end-slot '(2 3 4 5))
       (add-to-score! (length card-list)))
   (move-n-cards! start-slot end-slot card-list)
-  (fill-tableau-slot start-slot)
-  (give-status-message))
+  (fill-tableau-slot start-slot))
 
 (define (droppable? start-slot card-list end-slot)
   (and (not (= start-slot end-slot))
@@ -160,9 +159,7 @@
   (flippable? 0 1 2))
 
 (define (do-deal-next-cards)
-  (begin
-    (flip-stock 0 1 2)
-    (give-status-message)))
+  (flip-stock 0 1 2))
 
 (define (button-clicked slot-id)
   (if (= slot-id 0)
@@ -239,6 +236,7 @@
       #f))
 
 (define (game-over)
+  (give-status-message)
   (and (not (game-won))
        (get-hint)))