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

[Vincent Povirk <vpovirk src gnome org>]

commit 510a241a71c49d4dca8b9d5eaeba02b938dd7af0
Author: Vincent Povirk <madewokherd gmail com>
Date:   Thu Aug 9 18:18:00 2012 -0500

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

 games/valentine.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/valentine.scm b/games/valentine.scm
index 8080007..f9794fb 100644
--- a/games/valentine.scm
+++ b/games/valentine.scm
@@ -127,9 +127,7 @@
 		 (get-suit (get-top-card slot2)))
 	      (= (+ 1 (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 (tableau-move? slot1 (+ 1 slot2)))))