#:name for during*
This commit is contained in:
parent
bed381dd5e
commit
8e866239a6
|
@ -203,9 +203,10 @@
|
||||||
(match-define (list #,@(analyse-pattern-bindings #'pat)) bindings)
|
(match-define (list #,@(analyse-pattern-bindings #'pat)) bindings)
|
||||||
expr ...)))))])))
|
expr ...)))))])))
|
||||||
|
|
||||||
(define (during* f)
|
(define (during* f #:name [name '?])
|
||||||
(define assertion-map (make-hash))
|
(define assertion-map (make-hash))
|
||||||
(entity #:assert
|
(entity #:name name
|
||||||
|
#:assert
|
||||||
(action (value handle)
|
(action (value handle)
|
||||||
(let ((facet (react (facet-prevent-inert-check! this-facet)
|
(let ((facet (react (facet-prevent-inert-check! this-facet)
|
||||||
(f this-turn value))))
|
(f this-turn value))))
|
||||||
|
|
Loading…
Reference in New Issue