Cosmetic, more or less
This commit is contained in:
parent
de18aa2112
commit
ee5a5d9f5f
|
@ -483,14 +483,12 @@
|
||||||
|
|
||||||
(define (stop-if-inert-after action)
|
(define (stop-if-inert-after action)
|
||||||
(lambda (turn)
|
(lambda (turn)
|
||||||
|
(define f (turn-active-facet turn))
|
||||||
(action turn)
|
(action turn)
|
||||||
(turn-enqueue! turn
|
(turn-enqueue! turn f (lambda (turn)
|
||||||
(turn-active-facet turn)
|
(when (or (and (facet-parent f) (not (facet-live? (facet-parent f))))
|
||||||
(lambda (turn)
|
(facet-inert? f))
|
||||||
(define f (turn-active-facet turn))
|
(turn-stop! turn))))))
|
||||||
(when (or (and (facet-parent f) (not (facet-live? (facet-parent f))))
|
|
||||||
(facet-inert? f))
|
|
||||||
(turn-stop! turn))))))
|
|
||||||
|
|
||||||
(define (deliver maybe-proc . args)
|
(define (deliver maybe-proc . args)
|
||||||
(when maybe-proc
|
(when maybe-proc
|
||||||
|
|
Loading…
Reference in New Issue