From e424476a057ac90b700e53fa7a02a2f8a159fe0f Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 14 May 2014 00:24:39 -0400 Subject: [PATCH] Update internal-latency to use gestalt-union --- internal-latency.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/internal-latency.rkt b/internal-latency.rkt index 1f32d34..ed8ee3c 100644 --- a/internal-latency.rkt +++ b/internal-latency.rkt @@ -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))