From 8011a7263cef8ca28bdd53a2a7c4c9f9b4d4ba0b Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 10 May 2014 19:26:03 -0400 Subject: [PATCH] Adapt first example --- minimart/examples/example-plain.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/minimart/examples/example-plain.rkt b/minimart/examples/example-plain.rkt index 6a1dbf1..24271ed 100644 --- a/minimart/examples/example-plain.rkt +++ b/minimart/examples/example-plain.rkt @@ -26,8 +26,9 @@ [(message (event _ (list line)) _ _) (transition s (send `(got-line ,line)))] [_ #f])) -(run-ground (spawn-world (spawn r (void) (list (sub ?))) +(run-ground (spawn-world (spawn r (void) (sub ?)) (spawn b 0)) - (spawn echoer (void) (list (sub (event (read-line-evt (current-input-port) 'any) ?) - #:meta-level 1))) - (spawn spy (void) (list (sub ? #:level 1000) (pub ? #:level 1000)))) + (spawn echoer (void) (sub (event (read-line-evt (current-input-port) 'any) ?) + #:meta-level 1)) + (spawn spy (void) (gestalt-union (sub ? #:level 1000) + (pub ? #:level 1000))))