Avoid caching turn past a user action (which causes problems if we suspend/resume across turns)
This commit is contained in:
parent
4970d0fd9e
commit
5e1518c2bb
|
@ -484,10 +484,11 @@
|
|||
|
||||
(define (stop-if-inert-after action)
|
||||
(lambda ()
|
||||
(define turn (current-turn))
|
||||
(define f (turn-active-facet turn))
|
||||
(define f (turn-active-facet (current-turn)))
|
||||
(action)
|
||||
(turn-enqueue! turn f (lambda ()
|
||||
(turn-enqueue! (current-turn)
|
||||
f
|
||||
(lambda ()
|
||||
(when (or (and (facet-parent f) (not (facet-live? (facet-parent f))))
|
||||
(facet-inert? f))
|
||||
(turn-stop! (current-turn)))))))
|
||||
|
|
Loading…
Reference in New Issue