From 6c98531832240817fd22a28e7bcf19a4164e0147 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones
There have been ~a requests prior to this one.
") counter))) - (transition s (list (message #:meta-level 1 (tcp-channel us them response)) - (quit)))] + (quit (message (at-meta (tcp-channel us them response))))] [_ #f])) (void) (scn/union (subscription `(counter ,?)) @@ -106,11 +105,11 @@ (subscription (advertise (tcp-channel them us ?)) #:meta-level 1) (advertisement (tcp-channel us them ?) #:meta-level 1))))) - (spawn-world + (spawn-network (spawn (lambda (e counter) (match e - [(message 'bump _ _) - (transition (+ counter 1) (send `(counter ,counter)))] + [(message 'bump) + (transition (+ counter 1) (message `(counter ,counter)))] [_ #f])) 0 (scn (subscription 'bump)))