[aisleriot] cruel: Use hint-move instead of get-name.



commit 9caf6ebd270bfa5f9deba6240eb4b9ae6717031d
Author: Vincent Povirk <madewokherd gmail com>
Date:   Thu Aug 9 13:09:37 2012 -0500

    cruel: Use hint-move instead of get-name.
    
    For bug 551859.

 games/cruel.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/cruel.scm b/games/cruel.scm
index 27f7541..7a9f5bb 100644
--- a/games/cruel.scm
+++ b/games/cruel.scm
@@ -218,9 +218,7 @@
                                (car to-slots)
                    )
                )              
-               (list 1 (get-name(get-top-card(car from-slots))) 
-                       (get-name(get-top-card(car to-slots)))
-               )
+               (hint-move (car from-slots) 1 (car to-slots))
                (check-move-helper from-slots (cdr to-slots))
           )
       )



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]