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

[Vincent Povirk <vpovirk src gnome org>]

commit e5e8e0a93f83175c6911b5237a4d77e85c711876
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sun May 5 14:16:24 2013 -0500

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

 games/escalator.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/escalator.scm b/games/escalator.scm
index 0a5d528..4c4779a 100644
--- a/games/escalator.scm
+++ b/games/escalator.scm
@@ -214,9 +214,7 @@
                        (= ace (get-value (get-top-card check-slot))))
                   (and (= ace (get-value (get-top-card 1)))
                        (= king (get-value (get-top-card check-slot)))0)))
-         (list 1 
-               (get-name (get-top-card check-slot))
-               (get-name (get-top-card 1)))
+         (hint-move check-slot 1 1)
          (playable? (+ 1 check-slot)))))
 
 (define (dealable?)