WIP exploration of problems with demand transients
This commit is contained in:
parent
e90c0e580e
commit
ea997539a2
|
@ -0,0 +1,21 @@
|
||||||
|
#lang syndicate/actor
|
||||||
|
|
||||||
|
(require/activate syndicate/drivers/timer)
|
||||||
|
|
||||||
|
(actor #:name 'main
|
||||||
|
(on (message 'trigger)
|
||||||
|
(actor* #:name 'asserter
|
||||||
|
(assert! 'up)
|
||||||
|
(send! 'done)))
|
||||||
|
(during/actor 'up
|
||||||
|
#:name 'up
|
||||||
|
(on-start (printf "starting\n"))
|
||||||
|
(on-stop (printf "stopping\n"))))
|
||||||
|
|
||||||
|
(actor* #:name 'triggerer
|
||||||
|
(until (asserted (observe 'trigger)))
|
||||||
|
(send! 'trigger)
|
||||||
|
(until (message 'done))
|
||||||
|
(printf "got done\n")
|
||||||
|
(send! (set-timer 'timer 500 'relative))
|
||||||
|
(until (message (timer-expired 'timer _))))
|
Loading…
Reference in New Issue