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

[Vincent Povirk <vpovirk src gnome org>]

commit 8637c54d51b51110c874a3bbe875ada4f56ccd5f
Author: Vincent Povirk <madewokherd gmail com>
Date:   Fri Jun 29 16:35:49 2012 -0500

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

 games/carpet.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/carpet.scm b/games/carpet.scm
index 35ac96e..3519712 100644
--- a/games/carpet.scm
+++ b/games/carpet.scm
@@ -159,9 +159,7 @@
           (empty-slot? start-slot))
       #f
       (if (droppable? start-slot (list (get-top-card start-slot)) (car end-slots))
-          (list 1
-            (get-name (get-top-card start-slot))
-            (get-name (get-top-card (car end-slots))))
+          (hint-move start-slot 1 (car end-slots))
           (hint-to-foundation start-slot (cdr end-slots)))))
 
 (define (hint-tableau-to-foundation start-slot)