syndicate-2017/racket/syndicate/tests/simple-multi-level.rkt

8 lines
169 B
Racket

#lang syndicate/test
(spawn (on (asserted "hello")
(printf "goodbye\n")))
(dataspace (spawn (assert (outbound "hello"))))
(trace (assertion-added "hello"))