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

[Vincent Povirk <vpovirk src gnome org>]

commit 43bf71eed406c612b1d77f7e2fe23ded54184ac2
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sun May 5 11:15:54 2013 -0500

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

 games/first-law.scm |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)
---
diff --git a/games/first-law.scm b/games/first-law.scm
index 3145ea8..905437e 100644
--- a/games/first-law.scm
+++ b/games/first-law.scm
@@ -173,8 +173,7 @@
              (not (empty-slot? slot2))
              (= (get-value (get-top-card slot1))
                 (get-value (get-top-card slot2))))
-        (list 1 (get-name (get-top-card slot2))
-              (get-name (get-top-card slot1))))
+        (hint-move slot2 1 slot1))
        (#t
         (move-leftable? slot1 (+ 1 slot2)))))