13 lines
359 B
Racket
13 lines
359 B
Racket
|
#lang syndicate/test
|
||
|
|
||
|
(spawn (on (asserted "outer")
|
||
|
(react (on (message "bam")
|
||
|
(react (on (asserted "outer")
|
||
|
(send! "icu")
|
||
|
(printf "icu\n")))))))
|
||
|
|
||
|
(spawn (assert "outer")
|
||
|
(on (asserted (observe "bam"))
|
||
|
(send! "bam")))
|
||
|
|
||
|
(trace (message "icu"))
|