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



commit 38fe0577a3c52626388ef90d052ff1502585f974
Author: Vincent Povirk <madewokherd gmail com>
Date:   Tue Nov 1 22:39:23 2011 -0500

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

 games/thieves.scm |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)
---
diff --git a/games/thieves.scm b/games/thieves.scm
index 8541f8a..5be7061 100644
--- a/games/thieves.scm
+++ b/games/thieves.scm
@@ -133,8 +133,7 @@
           (empty-slot? where)
 	  (not (values-match? (get-top-card where) (get-top-card 8))))
       #f
-      (list 1 (get-name (get-top-card where))
-             (get-name (get-top-card 8)))))
+      (hint-move where 1 8)))
 
 (define (get-hint)
   (or (hint-move-from 0)



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