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

4
internal-latency.rkt
View File

@ -47,7 +47,7 @@
'()))] '()))]
[_ #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 ?)))))
@ -58,7 +58,7 @@
(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