[aisleriot] fourteen: Use hint-move instead of get-name.
- From: Vincent Povirk <vpovirk src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [aisleriot] fourteen: Use hint-move instead of get-name.
- Date: Sat, 30 Jun 2012 00:34:00 +0000 (UTC)
commit 73bb67f4fa5f4a4b5786d248a1becc73b0ec3372
Author: Vincent Povirk <madewokherd gmail com>
Date: Fri Jun 29 15:11:05 2012 -0500
fourteen: Use hint-move instead of get-name.
For bug 551859.
games/fourteen.scm | 4 +---
1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/fourteen.scm b/games/fourteen.scm
index 224e872..b875321 100644
--- a/games/fourteen.scm
+++ b/games/fourteen.scm
@@ -105,9 +105,7 @@
(if (< slot1 10)
(check-slot (+ 1 slot1) (+ 2 slot1))
#f))
- (list 1
- (get-name (get-top-card slot1))
- (get-name (get-top-card slot2))))))
+ (hint-move slot1 1 slot2))))
(define (get-hint)
(check-slot 0 1))
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]