2016-04-01 23:53:46 +00:00
|
|
|
#lang syndicate
|
2016-01-24 05:04:29 +00:00
|
|
|
;; Check that nested-world assertions are properly retracted.
|
|
|
|
;; Should print two "Got SCN:" patches - one adding, and one removing (observe 'die).
|
|
|
|
|
2017-02-15 23:18:19 +00:00
|
|
|
#;(actor (lambda (e s)
|
2016-01-24 05:04:29 +00:00
|
|
|
(match e
|
|
|
|
[(message 'die) (quit)]
|
|
|
|
[_ #f]))
|
|
|
|
(void)
|
|
|
|
(patch-seq (sub 'die)
|
|
|
|
(sub (observe 'die))))
|
|
|
|
|
2017-02-25 16:16:25 +00:00
|
|
|
(dataspace-actor
|
2017-02-15 23:18:19 +00:00
|
|
|
(actor (lambda (e s)
|
2016-01-24 05:04:29 +00:00
|
|
|
(match e
|
2016-07-30 17:02:07 +00:00
|
|
|
[(message (inbound 'die)) (quit)]
|
2016-01-24 05:04:29 +00:00
|
|
|
[_ #f]))
|
|
|
|
(void)
|
2016-07-30 17:02:07 +00:00
|
|
|
(patch-seq (sub (inbound 'die))
|
|
|
|
(sub (inbound (observe 'die))))))
|
2016-01-24 05:04:29 +00:00
|
|
|
|
2017-02-15 23:18:19 +00:00
|
|
|
(actor (lambda (e s)
|
2016-01-24 05:04:29 +00:00
|
|
|
(match e
|
|
|
|
[(? patch? p)
|
|
|
|
(printf "Got SCN:\n")
|
|
|
|
(pretty-print-patch p)
|
|
|
|
(transition s (if (patch/added? p)
|
|
|
|
(message 'die)
|
|
|
|
'()))]
|
|
|
|
[_ #f]))
|
|
|
|
(void)
|
|
|
|
(sub (observe 'die)))
|