Bug#673054: Aisleriot Spider game Scheme error

[Martti Ikonen]

The problem reported by Solveig on 15 May 2012 still persists. When
sol was started from command line it produced the following output on
error:


$ sol
Aisleriot 3.4.1 scheme exception occurred
-- 8< --
Variation: spider
Scheme error:
	(#f Wrong type (expecting ~A): ~S (exact integer ((1 3 #t) (2 3 #t)
(3 3 #t) (4 3 #t) (5 3 #t) (6 3 #t) (7 3 #t) (8 3 #t) (9 3 #t) (10 3
#t) (11 3 #t) (12 3 #t) (13 3 #t) (1 2 #t) (13 2 #f) (13 3 #f) (6 2
#f) (5 2 #f) (1 2 #f))) (((1 3 #t) (2 3 #t) (3 3 #t) (4 3 #t) (5 3 #t)
(6 3 #t) (7 3 #t) (8 3 #t) (9 3 #t) (10 3 #t) (11 3 #t) (12 3 #t) (13
3 #t) (1 2 #t) (13 2 #f) (13 3 #f) (6 2 #f) (5 2 #f) (1 2 #f))))
Scheme tag:
	wrong-type-arg

Backtrace:
In ice-9/boot-9.scm:
 149: 10 [catch #t #<catch-closure 91ae310> ...]
 157: 9 [#<procedure 91778c0 ()>]
In unknown file:
   ?: 8 [catch-closure]
In ice-9/boot-9.scm:
 149: 7 [catch #t #<catch-closure 97d44c0> ...]
 157: 6 [#<procedure 95e7168 ()>]
In unknown file:
   ?: 5 [catch-closure]
In spider.scm:
 206: 4 [button-double-clicked 18]
In api.scm:
 548: 3 [remove-n-cards 18 13]
In unknown file:
   ?: 2 [list-tail 13 ((1 3 #t) (2 3 #t) (3 3 #t) ...)]
In ice-9/boot-9.scm:
 102: 1 [#<procedure 95ec780 at ice-9/boot-9.scm:97:6 (thrown-k .
args)> wrong-type-arg ...]
In unknown file:
   ?: 0 [catch-closure wrong-type-arg #f ...]


Deck State:
	Slot 0
		(2 13 #f) ,(3 6 #f) ,(2 3 #f)
 ,(3 10 #f) ,(2 10 #f) ,(2 8 #f) ,(3 6 #f) ,(2 8 #f)
	Slot 1
		(Empty)
	Slot 2
		(Empty)
	Slot 3
		(Empty)
	Slot 4
		(Empty)
	Slot 5
		(Empty)
	Slot 6
		(Empty)
	Slot 7
		(Empty)
	Slot 8
		(Empty)
	Slot 9
		(3 8 #f) ,(2 11 #f) ,(3 7 #f)
 ,(3 11 #f) ,(2 9 #f) ,(3 4 #t) ,(2 11 #t) ,(3 7 #t)
	Slot 10
		(2 13 #f) ,(2 9 #t) ,(2 7 #t)
 ,(2 12 #f) ,(2 8 #t)
	Slot 11
		(3 10 #f) ,(3 9 #f) ,(3 1 #t)
 ,(2 10 #f) ,(3 5 #t) ,(2 2 #t)
	Slot 12
		(3 3 #f) ,(3 10 #f) ,(2 2 #f)
 ,(2 13 #f) ,(2 10 #f) ,(2 5 #t) ,(3 1 #t) ,(2 6 #t) ,(3 4 #t) ,(2 2 #t)
	Slot 13
		(3 13 #t)
	Slot 14
		(3 7 #f) ,(3 12 #f) ,(3 4 #t)
 ,(2 4 #f) ,(3 5 #t) ,(3 3 #t) ,(3 1 #t) ,(2 4 #t)
	Slot 15
		(2 3 #f) ,(3 11 #f) ,(2 1 #t)
 ,(2 5 #f) ,(2 7 #f) ,(3 12 #t) ,(2 11 #t) ,(2 9 #t) ,(2 7 #t)
	Slot 16
		(2 4 #f) ,(3 3 #f) ,(3 9 #t)
 ,(2 2 #f) ,(2 6 #f) ,(3 8 #t)
	Slot 17
		(3 13 #f) ,(3 6 #f) ,(3 12 #t)
 ,(3 2 #f) ,(2 12 #f) ,(3 11 #t) ,(3 8 #t)
	Slot 18
		(2 1 #f) ,(2 6 #f) ,(2 13 #f)
 ,(2 5 #f) ,(3 13 #f) ,(2 1 #t) ,(3 12 #t) ,(3 10 #t) ,(3 8 #t) ,(3 6
#t) ,(3 4 #t) ,(3 2 #t)

-- >8 --

Martti