[aisleriot] streets-and-alleys: Use hint-move instead of get-name.

[Vincent Povirk <vpovirk src gnome org>]

commit 7419c00275adce922daee2ec87e4cee5d6568353
Author: Vincent Povirk <madewokherd gmail com>
Date:   Thu Aug 9 12:14:52 2012 -0500

    streets-and-alleys: Use hint-move instead of get-name.
    
    For bug 551859.

 games/streets-and-alleys.scm |   30 ++++++++++++++----------------
 1 files changed, 14 insertions(+), 16 deletions(-)
---
diff --git a/games/streets-and-alleys.scm b/games/streets-and-alleys.scm
index 091084f..f483c47 100644
--- a/games/streets-and-alleys.scm
+++ b/games/streets-and-alleys.scm
@@ -21,37 +21,37 @@
   (set-ace-low)
   (make-standard-deck)
   (shuffle-deck)
-  (add-extended-slot '() right)
+  (add-extended-slot '() right 'tableau)
   (add-blank-slot)
   (add-blank-slot)
   (add-blank-slot)
-  (add-normal-slot DECK)
+  (add-normal-slot DECK 'foundation)
   (set! HORIZPOS (+ HORIZPOS 0.5))
-  (add-extended-slot '() right)
+  (add-extended-slot '() right 'tableau)
   (add-carriage-return-slot)
-  (add-extended-slot '() right)
+  (add-extended-slot '() right 'tableau)
   (add-blank-slot)
   (add-blank-slot)
   (add-blank-slot)
-  (add-normal-slot '())
+  (add-normal-slot '() 'foundation)
   (set! HORIZPOS (+ HORIZPOS 0.5))
-  (add-extended-slot '() right)
+  (add-extended-slot '() right 'tableau)
   (add-carriage-return-slot)
-  (add-extended-slot '() right)
+  (add-extended-slot '() right 'tableau)
   (add-blank-slot)
   (add-blank-slot)
   (add-blank-slot)
-  (add-normal-slot '())
+  (add-normal-slot '() 'foundation)
   (set! HORIZPOS (+ HORIZPOS 0.5))
-  (add-extended-slot '() right)
+  (add-extended-slot '() right 'tableau)
   (add-carriage-return-slot)
-  (add-extended-slot '() right)
+  (add-extended-slot '() right 'tableau)
   (add-blank-slot)
   (add-blank-slot)
   (add-blank-slot)
-  (add-normal-slot '())
+  (add-normal-slot '() 'foundation)
   (set! HORIZPOS (+ HORIZPOS 0.5))
-  (add-extended-slot '() right)
+  (add-extended-slot '() right 'tableau)
   (deal-cards-face-up 1 '(0 2 3 5 6 8 9 11 0 2 3 5 6 8 9 11 
 			  0 2 3 5 6 8 9 11 0 2 3 5 6 8 9 11 
 			  0 2 3 5 6 8 9 11 0 2 3 5 6 8 9 11 0 3 6 9))
@@ -155,14 +155,12 @@
 	 #f)
 	((empty-slot? slot2)
 	 (and (= (get-value (get-top-card slot1)) ace)
-	      (list 2 (get-name (get-top-card slot1)) (_"an empty foundation"))))
+	      (hint-move slot1 1 slot2)))
 	((and (= (get-suit (get-top-card slot1))
 		 (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))
 	(#t #f)))
 
 (define (check-to-foundation slot-id)