[aisleriot] thieves: Use hint-move instead of get-name.
- From: Vincent Povirk <vpovirk src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [aisleriot] thieves: Use hint-move instead of get-name.
- Date: Wed, 2 Nov 2011 04:59:43 +0000 (UTC)
commit 38fe0577a3c52626388ef90d052ff1502585f974
Author: Vincent Povirk <madewokherd gmail com>
Date: Tue Nov 1 22:39:23 2011 -0500
thieves: Use hint-move instead of get-name.
For bug 551859.
games/thieves.scm | 3 +--
1 files changed, 1 insertions(+), 2 deletions(-)
---
diff --git a/games/thieves.scm b/games/thieves.scm
index 8541f8a..5be7061 100644
--- a/games/thieves.scm
+++ b/games/thieves.scm
@@ -133,8 +133,7 @@
(empty-slot? where)
(not (values-match? (get-top-card where) (get-top-card 8))))
#f
- (list 1 (get-name (get-top-card where))
- (get-name (get-top-card 8)))))
+ (hint-move where 1 8)))
(define (get-hint)
(or (hint-move-from 0)
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]