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



commit 7f6fcb89dd39e4bf0537ec7719dddb606fa31f32
Author: Vincent Povirk <madewokherd gmail com>
Date:   Fri Jun 29 16:31:01 2012 -0500

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

 games/isabel.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/isabel.scm b/games/isabel.scm
index ad145f1..7c0ad8a 100644
--- a/games/isabel.scm
+++ b/games/isabel.scm
@@ -107,9 +107,7 @@
 	((and (not (empty-slot? slot2))
 	      (= (get-value (get-top-card slot1))
 		 (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 (check-for-pairs slot1 (+ 1 slot2)))))
 
 (define (get-hint)



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