Bug#855955: aisleriot: Variants "Westhaven" and "Diamond-Mine" interfere: crash with wrong-number-of-args

[BenWiederhake.GitHub]

Control: found -1 1:3.22.4-3
Thanks

Hello,

still happens.
It looks like it's not necessary to complete the game.

I don't know why I didn't paste it the first time, but here's a Scheme 
backtrace.

     -- 8< --
     Variation: westhaven
     Scheme error:
         (#f Wrong number of arguments to ~A (#<procedure find-card 
(card-suit card-rank slot)>) #f)
     Scheme tag:
         wrong-number-of-args
     Backtrace:
     In ice-9/boot-9.scm:
      160: 8 [catch #t #<catch-closure 555555a384a0> ...]
     In unknown file:
        ?: 7 [apply-smob/1 #<catch-closure 555555a384a0>]
     In ice-9/boot-9.scm:
      160: 6 [catch #t #<catch-closure 5555561c9200> ...]
     In unknown file:
        ?: 5 [apply-smob/1 #<catch-closure 5555561c9200>]
     In westhaven.scm:
      304: 4 [get-hint]
      271: 3 [tableau-to-tableau? 6 15]
     In diamond-mine.scm:
      278: 2 [find-card 6 (9 2 #t)]
     In ice-9/boot-9.scm:
      105: 1 [#<procedure 5555565f31c0 at ice-9/boot-9.scm:100:6 
(thrown-k . args)> wrong-number-of-args ...]
     In unknown file:
        ?: 0 [apply-smob/1 #<catch-closure 5555561cef40> 
wrong-number-of-args ...]
     Deck State:
         Slot 0
             (0 10 #f) ,(0 11 #f) ,(1 1 #f)
      ,(3 1 #f) ,(3 9 #f) ,(3 6 #f) ,(1 4 #f) ,(2 1 #f) ,(0 1 #f) ,(1 13 
#f) ,(3 8 #f) ,(1 9 #f) ,(0 7 #f) ,(1 10 #f)
         Slot 1
             (Empty)
         Slot 2
             (Empty)
         Slot 3
             (Empty)
         Slot 4
             (Empty)
         Slot 5
             (Empty)
         Slot 6
             (0 2 #f) ,(2 9 #t)
         Slot 7
             (3 5 #f) ,(3 11 #t)
         Slot 8
             (0 13 #f) ,(1 12 #t)
         Slot 9
             (1 7 #f) ,(2 6 #t)
         Slot 10
             (2 3 #f) ,(3 7 #t)
         Slot 11
             (0 6 #f) ,(2 12 #t)
         Slot 12
             (1 11 #f) ,(2 4 #t)
         Slot 13
             (1 8 #f) ,(0 4 #t)
         Slot 14
             (0 9 #f) ,(2 7 #t)
         Slot 15
             (2 2 #f) ,(3 10 #t)
     -- >8 --

Cheers,
Ben