Commit 01e785b7 authored by Vincent Povirk's avatar Vincent Povirk

pileon: Use hint-move instead of get-name.

For bug 551859.
parent e5e8e0a9
......@@ -167,8 +167,7 @@
(- number-to-move
(- 4 (length (get-cards to-slot))))
(+ 1 to-slot))
(list 2 (get-name (get-top-card slot-id))
(get-name (get-top-card to-slot)))))
(hint-move slot-id 1 to-slot)))
(#t (check-a-slot slot-id number-to-move (+ 1 to-slot)))))))
(define (check-slots slot-id to-slot)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment