stack overflow exception on hint in Freecell
@chpe
Submitted by Christian Persch Assigned to gno..@..e.bugs
Link to original bug (#524237)
Description
Steps: 0) $ sol --freecell
- Hint
- Hint again
Results: Stack overflow exception. (Sometimes it's enough to call Hint once.)
Variation: freecell.scm Seed: 3682751935 Scheme error: (#f Stack overflow #f #f) Scheme tag: stack-overflow
Backtrace: In /opt/gnome-2.24/share/gnome-games/aisleriot/games/freecell.scm: 987: 130 (cond ((null? card-list) 0) ((null? (cdr card-list)) 1) ...) 989: 131 [+ ... 989: 132* [get-card-list-weight ((9 0 #t) (13 1 #t) (1 2 #t) (3 1 #t))] 987: 133 (cond ((null? card-list) 0) ((null? (cdr card-list)) 1) ...) 989: 134 [+ ... 989: 135* [get-card-list-weight ((13 1 #t) (1 2 #t) (3 1 #t))] 987: 136 (cond ((null? card-list) 0) ((null? (cdr card-list)) 1) ...) 989: 137 [+ ... 989: 138* [get-card-list-weight ((1 2 #t) (3 1 #t))] 987: 139 (cond ((null? card-list) 0) ((null? (cdr card-list)) 1) ...) 989: 140 [+ 1 ... 990: 141* (if (field-join? (car card-list) (cadr card-list)) 0 1) 990: 142* [field-join? (1 2 #t) (3 1 #t)] 161: 143 (and (not (eq? # #)) (eq? (+ # 1) (get-value upper))) 161: 144* [not ... 161: 145* [eq? ... 161: 146* [get-color (1 2 #t)] In /opt/gnome-2.24/share/gnome-games/aisleriot/games/sol.scm: 279: 147 (cond ((eq? # club) black) ((eq? # spade) black) ...) 279: 148* [eq? ... 279: 149* (get-suit card)
This is with guile 1.8.4; haven't tested with 1.8.3 yet. NOT a dup of bug 453900 though.
Resolution: RESOLVED INVALID