From db333a266f26808595d264f124a0f33e083797b6 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 29 Sep 2017 17:34:40 +0100 Subject: [PATCH] Tweaks to udp-echo.rkt --- racket/syndicate/examples/actor/udp-echo.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/examples/actor/udp-echo.rkt b/racket/syndicate/examples/actor/udp-echo.rkt index 26b7205..8f91661 100644 --- a/racket/syndicate/examples/actor/udp-echo.rkt +++ b/racket/syndicate/examples/actor/udp-echo.rkt @@ -1,7 +1,10 @@ #lang syndicate (require/activate syndicate/drivers/udp) +(require syndicate/protocol/advertise) (spawn (on (message (udp-packet $peer (udp-listener 5999) $body)) (printf "Received from ~a: ~v\n" peer body) - (send! (udp-packet (udp-listener 5999) peer body)))) + (send! (udp-packet (udp-listener 5999) peer body))) + (on (asserted (advertise (udp-packet _ (udp-listener 5999) _))) + (printf "Socket is ready and will forward datagrams.\n")))