[aisleriot] auld-lang-syne: Use hint-move instead of get-name.

[Vincent Povirk <vpovirk src gnome org>]

commit f98bc294558ff0d4d7cfbb45932999e7b2e5d4f7
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sun May 5 13:30:26 2013 -0500

    auld-lang-syne: Use hint-move instead of get-name.
    
    For bug 551859.

 games/auld-lang-syne.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/auld-lang-syne.scm b/games/auld-lang-syne.scm
index 997aff7..01d9e37 100644
--- a/games/auld-lang-syne.scm
+++ b/games/auld-lang-syne.scm
@@ -114,9 +114,7 @@
          (movable? (+ 1 slot1) 1)
          (if (= (get-value (get-top-card slot1))
                 (+ 1 (get-value (get-top-card slot2))))
-             (list 1
-                   (get-name (get-top-card slot1)) 
-                   (get-name (get-top-card slot2)))
+             (hint-move slot1 1 slot2)
              (movable? slot1 (+ 1 slot2))))))
 
 (define (dealable?)