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

[Vincent Povirk <vpovirk src gnome org>]

commit 32d79c0de841e054e662c28c808a8fa109390e8f
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sun May 5 16:56:55 2013 -0500

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

 games/triple-peaks.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/triple-peaks.scm b/games/triple-peaks.scm
index 387dfc7..846615f 100644
--- a/games/triple-peaks.scm
+++ b/games/triple-peaks.scm
@@ -335,9 +335,7 @@
        (or (check-move (+ 1 slot-id))
           (and (available? slot-id)
                (movable? (get-top-card slot-id))
-               (list 1
-                     (get-name (get-top-card slot-id))
-                     (get-name (get-top-card 2)))))))
+               (hint-move slot-id 1 2)))))
 
 (define (dealable?)
   (and (not (empty-slot? 0))