From 8e866239a670d16c0228316aab21f238c203a7ca Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 8 Jun 2021 09:31:28 +0200 Subject: [PATCH] #:name for during* --- syndicate/syntax.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/syndicate/syntax.rkt b/syndicate/syntax.rkt index aca7c92..429a558 100644 --- a/syndicate/syntax.rkt +++ b/syndicate/syntax.rkt @@ -203,9 +203,10 @@ (match-define (list #,@(analyse-pattern-bindings #'pat)) bindings) expr ...)))))]))) -(define (during* f) +(define (during* f #:name [name '?]) (define assertion-map (make-hash)) - (entity #:assert + (entity #:name name + #:assert (action (value handle) (let ((facet (react (facet-prevent-inert-check! this-facet) (f this-turn value))))