Cosmetic notes
This commit is contained in:
parent
edb8e719f7
commit
0cbb5b061c
|
@ -679,6 +679,8 @@
|
||||||
(spawn (on (retracted (layer $x)) (printf "~a gone\n" x))))
|
(spawn (on (retracted (layer $x)) (printf "~a gone\n" x))))
|
||||||
|
|
||||||
#;(lambda ()
|
#;(lambda ()
|
||||||
|
;; See .../syndicate/examples/actor/example-responsibility-transfer-2.rkt
|
||||||
|
|
||||||
(spawn #:name 'factory-1
|
(spawn #:name 'factory-1
|
||||||
(on (asserted (list 'X 1))
|
(on (asserted (list 'X 1))
|
||||||
(spawn #:name 'service-1
|
(spawn #:name 'service-1
|
||||||
|
@ -698,6 +700,8 @@
|
||||||
)
|
)
|
||||||
|
|
||||||
#;(lambda ()
|
#;(lambda ()
|
||||||
|
;; See .../syndicate/examples/actor/example-responsibility-transfer-1.rkt
|
||||||
|
|
||||||
(spawn #:name 'demand-watcher
|
(spawn #:name 'demand-watcher
|
||||||
(during/spawn 'demand
|
(during/spawn 'demand
|
||||||
#:name (gensym 'intermediate-demand-asserter)
|
#:name (gensym 'intermediate-demand-asserter)
|
||||||
|
|
Loading…
Reference in New Issue