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