14 lines
450 B
Racket
14 lines
450 B
Racket
#lang syndicate/core
|
|
;; Analogous to nc-incremental-meta-drop.rkt in the Redex model.
|
|
;; Demonstrates (hopefully) correct processing of meta-interests when dropping a patch.
|
|
|
|
(dataspace-actor
|
|
(actor (lambda (e u)
|
|
(match u
|
|
[0 (transition 1 '())]
|
|
[1 (transition 2 (retract (outbound 'a)))]
|
|
[_ #f]))
|
|
0
|
|
(patch-seq (assert (outbound 'a))
|
|
(assert (observe (inbound 'a))))))
|