syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Adapt first example

This commit is contained in:
Tony Garnock-Jones 2014-05-10 19:26:03 -04:00
parent ebdd50ca4c
commit 8011a7263c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
minimart/examples/example-plain.rkt
View File

@ -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))))