syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
syndicate-2017/racket/syndicate/examples/example-meta-echo2.rkt

15 lines
495 B
Racket
Raw Normal View History

Alpha convert: prospect -> syndicate
2016-04-01 23:53:46 +00:00
#lang syndicate
When acting-pid is 'meta, take the entire delta as the delta-aggregate. This is correct because now that we have echo-cancelled SCNs, incoming SCNs from the metalevel are *always* new information for the contained actors.
2016-02-12 04:50:37 +00:00
;; The actor should receive a single event adding the (at-meta x) assertion.
Alpha convert: prospect -> syndicate
2016-04-01 23:53:46 +00:00
(require syndicate/pretty)
When acting-pid is 'meta, take the entire delta as the delta-aggregate. This is correct because now that we have echo-cancelled SCNs, incoming SCNs from the metalevel are *always* new information for the contained actors.
2016-02-12 04:50:37 +00:00
Rename "network" to "dataspace" throughout
2016-04-07 07:42:54 +00:00
(spawn-dataspace
When acting-pid is 'meta, take the entire delta as the delta-aggregate. This is correct because now that we have echo-cancelled SCNs, incoming SCNs from the metalevel are *always* new information for the contained actors.
2016-02-12 04:50:37 +00:00
(spawn (lambda (e counter)
(and e
(let ((new-counter (+ counter 1)))
Alpha convert: prospect -> syndicate
2016-04-01 23:53:46 +00:00
(printf "Received event ~a:\n~a\n" new-counter (syndicate-pretty-print->string e))
When acting-pid is 'meta, take the entire delta as the delta-aggregate. This is correct because now that we have echo-cancelled SCNs, incoming SCNs from the metalevel are *always* new information for the contained actors.
2016-02-12 04:50:37 +00:00
(transition (+ counter 1) '()))))
0
(list (patch-seq (sub 'x #:meta-level 1)
(assert (at-meta 'x))))))