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

[Vincent Povirk <vpovirk src gnome org>]

commit 39c17c41ef08a9390d0fd27075f43a710f933b58
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sat Nov 19 16:44:30 2011 -0600

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

 games/monte_carlo.scm |   12 ++++--------
 1 files changed, 4 insertions(+), 8 deletions(-)
---
diff --git a/games/monte_carlo.scm b/games/monte_carlo.scm
index 3eaf550..0c43467 100644
--- a/games/monte_carlo.scm
+++ b/games/monte_carlo.scm
@@ -150,8 +150,7 @@
 	      (not (empty-slot? slot-id))
 	      (= (get-value (get-top-card slot-id))
 		 (get-value (get-top-card (+ 1 slot-id)))))
-	 (list 1 (get-name (get-top-card slot-id))
-	       (get-name (get-top-card (+ 1 slot-id)))))
+	 (hint-move slot-id 1 (+ 1 slot-id)))
 	((< slot-id 24)
 	 (horizontal-check (+ 1 slot-id)))
 	(#t #f)))
@@ -161,8 +160,7 @@
 	      (not (empty-slot? (+ 5 slot-id)))
 	      (= (get-value (get-top-card slot-id))
 		 (get-value (get-top-card (+ 5 slot-id)))))
-	 (list 1 (get-name (get-top-card slot-id))
-	       (get-name (get-top-card (+ 5 slot-id)))))
+	 (hint-move slot-id 1 (+ 5 slot-id)))
 	((< slot-id 20)
 	 (vertical-check (+ 1 slot-id)))
 	(#t #f)))	       
@@ -173,8 +171,7 @@
 	      (not (empty-slot? slot-id))
 	      (= (get-value (get-top-card slot-id))
 		 (get-value (get-top-card (+ 6 slot-id)))))
-	 (list 1 (get-name (get-top-card slot-id))
-	       (get-name (get-top-card (+ 6 slot-id)))))
+	 (hint-move slot-id 1 (+ 6 slot-id)))
 	((< slot-id 19)
 	 (backslash-check (+ 1 slot-id)))
 	(#t #f)))
@@ -185,8 +182,7 @@
 	      (not (empty-slot? slot-id))
 	      (= (get-value (get-top-card slot-id))
 		 (get-value (get-top-card (+ 4 slot-id)))))
-	 (list 1 (get-name (get-top-card slot-id))
-	       (get-name (get-top-card (+ 4 slot-id)))))
+	 (hint-move slot-id 1 (+ 4 slot-id)))
 	((< slot-id 20)
 	 (slash-check (+ 1 slot-id)))
 	(#t #f)))