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

[Vincent Povirk <vpovirk src gnome org>]

commit 8dc96a9cf1f7d3793ef1da268cc88997d4a17165
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sun May 5 14:52:49 2013 -0500

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

 games/gay-gordons.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/gay-gordons.scm b/games/gay-gordons.scm
index 5150160..f72d5e8 100644
--- a/games/gay-gordons.scm
+++ b/games/gay-gordons.scm
@@ -221,9 +221,7 @@
         (check-for-pairs (+ 1 slot1) (+ 2 slot1)))
        ((and (not (empty-slot? slot2))
              (is-pair? (get-top-card slot1) (get-top-card slot2)))
-        (list 1
-              (get-name (get-top-card slot1))
-              (get-name (get-top-card slot2))))
+        (hint-move slot1 1 slot2))
        (#t (check-for-pairs slot1 (+ 1 slot2)))))
 
 (define (get-hint)