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



commit 73bb67f4fa5f4a4b5786d248a1becc73b0ec3372
Author: Vincent Povirk <madewokherd gmail com>
Date:   Fri Jun 29 15:11:05 2012 -0500

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

 games/fourteen.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/fourteen.scm b/games/fourteen.scm
index 224e872..b875321 100644
--- a/games/fourteen.scm
+++ b/games/fourteen.scm
@@ -105,9 +105,7 @@
 	      (if (< slot1 10)
 		  (check-slot (+ 1 slot1) (+ 2 slot1))
 		  #f))
-	  (list 1 
-		(get-name (get-top-card slot1)) 
-		(get-name (get-top-card slot2))))))
+	  (hint-move slot1 1 slot2))))
 		  
 (define (get-hint)
   (check-slot 0 1))



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]