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

[Vincent Povirk <vpovirk src gnome org>]

commit bfd7ee1db0927a55ae22d81c72fd4bdc949dfcf0
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sun May 5 16:52:42 2013 -0500

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

 games/beleaguered-castle.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/beleaguered-castle.scm b/games/beleaguered-castle.scm
index eb00ae5..21efbd8 100644
--- a/games/beleaguered-castle.scm
+++ b/games/beleaguered-castle.scm
@@ -146,9 +146,7 @@
              (get-suit (get-top-card slot2)))
           (= (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)
       #f))
 
 (define (check-to-foundation slot-id)