Commit 6338de64 authored by Vincent Povirk's avatar Vincent Povirk

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

For bug 551859.
parent fdb788ef
......@@ -116,9 +116,7 @@
(get-value (get-top-card foundation-id)))
(check-to-foundation slot-id (+ 1 foundation-id)))
(#t (list 1
(get-name (get-top-card slot-id))
(get-name (get-top-card foundation-id))))))
(#t (hint-move slot-id 1 foundation-id ))))
(define (check-waste)
(cond ((empty-slot? 1)
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