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



commit 644c4f85bc0e668574072176d85c27ad00cfd25a
Author: Vincent Povirk <madewokherd gmail com>
Date:   Thu Aug 9 10:14:40 2012 -0500

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

 games/quatorze.scm |    8 ++------
 1 files changed, 2 insertions(+), 6 deletions(-)
---
diff --git a/games/quatorze.scm b/games/quatorze.scm
index 328056e..6fb2e8f 100644
--- a/games/quatorze.scm
+++ b/games/quatorze.scm
@@ -153,9 +153,7 @@
 	((and (not (empty-slot? (+ slot2 buffer)))
 	      (= 14 (+ (get-value (get-top-card (+ slot1 buffer)))
 		       (get-value (get-top-card (+ slot2 buffer))))))
-	 (list 1 
-	       (get-name (get-top-card (+ slot1 buffer)))
-	       (get-name (get-top-card (+ slot2 buffer)))))
+	 (hint-move (+ slot1 buffer) 1 (+ slot2 buffer)))
 	(#t (check-row slot1 (+ 1 slot2) buffer))))
 
 (define (check-horiz)
@@ -174,9 +172,7 @@
 	((and (not (empty-slot? (+ slot2 buffer)))
 	      (= 14 (+ (get-value (get-top-card (+ slot1 buffer)))
 		       (get-value (get-top-card (+ slot2 buffer))))))
-	 (list 1 
-	       (get-name (get-top-card (+ slot1 buffer)))
-	       (get-name (get-top-card (+ slot2 buffer)))))
+	 (hint-move (+ slot1 buffer) 1 (+ slot2 buffer)))
 	(#t (check-col slot1 (+ 5 slot2) buffer))))
 
 (define (check-vert)



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