#:name for during*

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))))