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

Update internal-latency to use gestalt-union

This commit is contained in:
Tony Garnock-Jones 2014-05-14 00:24:39 -04:00
parent 86b5f9d431
commit e424476a05
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
internal-latency.rkt
View File

@ -47,9 +47,9 @@
'()))] '()))]
[_ #f])) [_ #f]))
#f #f
(list (sub (ping dst src ?)) (gestalt-union (sub (ping dst src ?))
(sub 'kickoff) (sub 'kickoff)
(pub (ping src dst ?))))) (pub (ping src dst ?)))))
(define (echoer id) (define (echoer id)
(spawn (lambda (e s) (spawn (lambda (e s)
@ -58,8 +58,8 @@
(transition s (send (ping id src stamp)))] (transition s (send (ping id src stamp)))]
[_ #f])) [_ #f]))
#f #f
(list (sub (ping ? id ?)) (gestalt-union (sub (ping ? id ?))
(pub (ping id ? ?))))) (pub (ping id ? ?)))))
(begin (begin
(run-ground (for/list [(id (in-range echoer-count))] (echoer id)) (run-ground (for/list [(id (in-range echoer-count))] (echoer id))