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

[Vincent Povirk <vpovirk src gnome org>]

commit 01e785b7d7300547fb9b984eea5d77b73745859f
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sun May 5 14:28:54 2013 -0500

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

 games/pileon.scm |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)
---
diff --git a/games/pileon.scm b/games/pileon.scm
index 2dffa10..d5f5181 100644
--- a/games/pileon.scm
+++ b/games/pileon.scm
@@ -167,8 +167,7 @@
                                   (- number-to-move 
                                      (- 4 (length (get-cards to-slot))))
                                   (+ 1 to-slot))
-                    (list 2 (get-name (get-top-card slot-id))
-                          (get-name (get-top-card to-slot)))))
+                    (hint-move slot-id 1 to-slot)))
                (#t (check-a-slot slot-id number-to-move (+ 1 to-slot)))))))
 
 (define (check-slots slot-id to-slot)