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

Bring examples into line with new API

This commit is contained in:
Tony Garnock-Jones 2014-05-13 23:14:52 -04:00
parent f75392a051
commit 7035365197
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
minimart/examples/example-lang.rkt
View File

@ -14,14 +14,16 @@
#f)]
[_ #f]))
(spawn-world (spawn r (void) (list (sub ?)))
(spawn-world (spawn r (void) (sub ?))
(spawn b 0))
(define (spy e s)
(when e (log-info "SPY: ~v" e))
#f)
(spawn spy (void) (list (sub ? #:level 1000) (pub ? #:level 1000)))
(spawn spy (void) (gestalt-union (sub ? #:level 0)
(sub ? #:level 1)
(pub ? #:level 1)))
(define (echoer e s)
(match e
@ -29,5 +31,5 @@
[(message (event _ (list line)) _ _) (transition s (send `(got-line ,line)))]
[_ #f]))
(spawn echoer (void) (list (sub (event (read-line-evt (current-input-port) 'any) ?)
#:meta-level 1)))
(spawn echoer (void) (sub (event (read-line-evt (current-input-port) 'any) ?)
#:meta-level 1))

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

@ -30,5 +30,6 @@
(spawn b 0))
(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))))
(spawn spy (void) (gestalt-union (sub ? #:level 0)
(sub ? #:level 1)
(pub ? #:level 1))))