Commit f98bc294 authored by Vincent Povirk's avatar Vincent Povirk

auld-lang-syne: Use hint-move instead of get-name.

For bug 551859.
parent d69aa1b1
......@@ -114,9 +114,7 @@
(movable? (+ 1 slot1) 1)
(if (= (get-value (get-top-card slot1))
(+ 1 (get-value (get-top-card slot2))))
(list 1
(get-name (get-top-card slot1))
(get-name (get-top-card slot2)))
(hint-move slot1 1 slot2)
(movable? slot1 (+ 1 slot2))))))
(define (dealable?)
......
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