Fix snapshot display bug

parent caf11a7d
......@@ -242,14 +242,15 @@
(vector-ref snapshots selection))
(define background
(if selected-snapshot
(actormap-run (game-actormap gw)
(λ ()
((current-renderer)
dispatch-stack
(game (hasheq->whactormap selected-snapshot)
am-ringbuf
snapshot-countdown dispatch-stack
pushdown display-rows display-cols))))
(let ([select-am
(hasheq->whactormap selected-snapshot)])
(actormap-run select-am
(λ ()
((current-renderer)
dispatch-stack
(game select-am am-ringbuf
snapshot-countdown dispatch-stack
pushdown display-rows display-cols)))))
(spaced-blank display-cols display-rows)))
(define snapshot-ui
......
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