[aisleriot] isabel: Use hint-move instead of get-name.
- From: Vincent Povirk <vpovirk src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [aisleriot] isabel: Use hint-move instead of get-name.
- Date: Sat, 30 Jun 2012 00:34:15 +0000 (UTC)
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]