syndicate-2017/racket/syndicate/tests/use-current-knowledge-with-...

10 lines
242 B
Racket

#lang syndicate/test
(spawn (on (asserted "hello")
(react (on (asserted "hello")
(printf "do I run?\n")
(send! "yes indeed")))))
(spawn (assert "hello"))
(trace (message "yes indeed"))