From ee5a5d9f5fd753fa04b8424c10a908ead121c5fa Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 9 Jun 2021 23:07:18 +0200 Subject: [PATCH] Cosmetic, more or less --- syndicate/actor.rkt | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/syndicate/actor.rkt b/syndicate/actor.rkt index 9cc2833..5c1f09d 100644 --- a/syndicate/actor.rkt +++ b/syndicate/actor.rkt @@ -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