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

[Vincent Povirk <vpovirk src gnome org>]

commit 9ad30b8645b7129aee79d064e1c0a7c99ec31069
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sun May 5 13:35:01 2013 -0500

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

 games/scuffle.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/scuffle.scm b/games/scuffle.scm
index f5fa479..53f197b 100644
--- a/games/scuffle.scm
+++ b/games/scuffle.scm
@@ -130,9 +130,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?)