From 2c202d46ad9b6bbd0a8a799915302a07ed082c75 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 27 Apr 2018 17:36:43 +0100 Subject: [PATCH] Cosmetic notes --- imperative/syntax.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/imperative/syntax.rkt b/imperative/syntax.rkt index 3cbe957..48c8ef6 100644 --- a/imperative/syntax.rkt +++ b/imperative/syntax.rkt @@ -679,6 +679,8 @@ (spawn (on (retracted (layer $x)) (printf "~a gone\n" x)))) #;(lambda () + ;; See .../syndicate/examples/actor/example-responsibility-transfer-2.rkt + (spawn #:name 'factory-1 (on (asserted (list 'X 1)) (spawn #:name 'service-1 @@ -698,6 +700,8 @@ ) #;(lambda () + ;; See .../syndicate/examples/actor/example-responsibility-transfer-1.rkt + (spawn #:name 'demand-watcher (during/spawn 'demand #:name (gensym 'intermediate-demand-asserter)