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

[Vincent Povirk <vpovirk src gnome org>]

commit b1932f9a82725831fae7cb823859989405e26047
Author: Vincent Povirk <madewokherd gmail com>
Date:   Fri Jun 29 17:50:10 2012 -0500

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

 games/block-ten.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/block-ten.scm b/games/block-ten.scm
index f00a608..73a3070 100644
--- a/games/block-ten.scm
+++ b/games/block-ten.scm
@@ -128,9 +128,7 @@
 		  (and (> (get-value (get-top-card slot1)) 10)
 		       (= (get-value (get-top-card slot1))
 			  (get-value (get-top-card slot2))))))
-	 (list 1 
-	       (get-name (get-top-card slot1)) 
-	       (get-name (get-top-card slot2))))
+	 (hint-move slot1 1 slot2))
 	(#t (avail-pair? slot1 (+ 1 slot2)))))
 
 (define (get-hint)