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



commit f895ea023a3cd667ff2d94a02264e2f8e42ce60c
Author: Vincent Povirk <madewokherd gmail com>
Date:   Thu Aug 9 12:01:03 2012 -0500

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

 games/accordion.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/accordion.scm b/games/accordion.scm
index d9626a6..8cf3270 100644
--- a/games/accordion.scm
+++ b/games/accordion.scm
@@ -195,9 +195,7 @@
 
 (define (make-hint possible-move)
     (if (car possible-move)
-           (list 2 (get-name (get-top-card (car possible-move)))
-                   (get-name (get-top-card (car (cdr possible-move)))) 
-           ) 
+           (hint-move (car possible-move) 1 (cadr possible-move)) 
            #f
     )
 )



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