don't run new facets asap
This commit is contained in:
parent
34c3b6bf3a
commit
c8cc8051a1
|
@ -631,8 +631,8 @@
|
||||||
(define-values (final-sto final-as new-children)
|
(define-values (final-sto final-as new-children)
|
||||||
(for/fold ([sto new-sto]
|
(for/fold ([sto new-sto]
|
||||||
[as as]
|
[as as]
|
||||||
[new-children (list)])
|
[new-children new-facets])
|
||||||
([ft (in-list (append children new-facets))])
|
([ft (in-list children)])
|
||||||
(match (run-facets ft π sto e)
|
(match (run-facets ft π sto e)
|
||||||
[(ok new-sto new-ft more-as)
|
[(ok new-sto new-ft more-as)
|
||||||
(values new-sto
|
(values new-sto
|
||||||
|
@ -892,4 +892,14 @@
|
||||||
(on (asserted (observe "poodle"))
|
(on (asserted (observe "poodle"))
|
||||||
(send! "poodle"))))))
|
(send! "poodle"))))))
|
||||||
(test-trace (trace (message "success"))
|
(test-trace (trace (message "success"))
|
||||||
stop-when-react))
|
stop-when-react))
|
||||||
|
|
||||||
|
(module+ test
|
||||||
|
(define do-new-facets-run-immediately
|
||||||
|
'(
|
||||||
|
(actor (react (on (message "hello")
|
||||||
|
(react (on (message "hello")
|
||||||
|
(send! "I am here"))))))
|
||||||
|
(actor (react (on-start (send! "hello"))))))
|
||||||
|
(check-false (run-with-trace (trace (message "I am here"))
|
||||||
|
do-new-facets-run-immediately)))
|
Loading…
Reference in New Issue