[aisleriot] block-ten: Use hint-move instead of get-name.
- From: Vincent Povirk <vpovirk src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [aisleriot] block-ten: Use hint-move instead of get-name.
- Date: Sat, 30 Jun 2012 00:34:35 +0000 (UTC)
commit b1932f9a82725831fae7cb823859989405e26047
Author: Vincent Povirk <madewokherd gmail com>
Date: Fri Jun 29 17:50:10 2012 -0500
block-ten: Use hint-move instead of get-name.
For bug 551859.
games/block-ten.scm | 4 +---
1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/block-ten.scm b/games/block-ten.scm
index f00a608..73a3070 100644
--- a/games/block-ten.scm
+++ b/games/block-ten.scm
@@ -128,9 +128,7 @@
(and (> (get-value (get-top-card slot1)) 10)
(= (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 (avail-pair? slot1 (+ 1 slot2)))))
(define (get-hint)
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]