syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Cosmetic, more or less

This commit is contained in:
Tony Garnock-Jones 2021-06-09 23:07:18 +02:00
parent de18aa2112
commit ee5a5d9f5f
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
syndicate/actor.rkt
View File

@ -483,14 +483,12 @@
(define (stop-if-inert-after action)
(lambda (turn)
(define f (turn-active-facet turn))
(action turn)
(turn-enqueue! turn
(turn-active-facet turn)
(lambda (turn)
(define f (turn-active-facet turn))
(when (or (and (facet-parent f) (not (facet-live? (facet-parent f))))
(facet-inert? f))
(turn-stop! turn))))))
(turn-enqueue! turn f (lambda (turn)
(when (or (and (facet-parent f) (not (facet-live? (facet-parent f))))
(facet-inert? f))
(turn-stop! turn))))))
(define (deliver maybe-proc . args)
(when maybe-proc