Cosmetic notes

syndicate/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)