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

[Vincent Povirk <vpovirk src gnome org>]

commit cad33e13d4f671067ccdbe069f23197242d10bdd
Author: Vincent Povirk <madewokherd gmail com>
Date:   Thu Aug 9 13:14:49 2012 -0500

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

 games/elevator.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/elevator.scm b/games/elevator.scm
index dc787c8..38c9911 100644
--- a/games/elevator.scm
+++ b/games/elevator.scm
@@ -347,9 +347,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 (game-continuable)