Use actor macro
This commit is contained in:
parent
ceef225fce
commit
b928d6c78a
|
@ -4,13 +4,8 @@
|
||||||
|
|
||||||
(spawn-udp-driver)
|
(spawn-udp-driver)
|
||||||
|
|
||||||
(spawn (lambda (e s)
|
(actor #:name echoer
|
||||||
(match e
|
(subscribe (udp-packet ($ src) ($ dst (udp-listener 5999)) ($ body))
|
||||||
[(message (udp-packet src dst body) _ _)
|
(log-info "Got packet from ~v: ~v" src body)
|
||||||
(log-info "Got packet from ~v: ~v" src body)
|
(define reply (string->bytes/utf-8 (format "You said: ~a" body)))
|
||||||
(transition s (send (udp-packet dst
|
(send (udp-packet dst src reply))))
|
||||||
src
|
|
||||||
(string->bytes/utf-8 (format "You said: ~a" body)))))]
|
|
||||||
[_ #f]))
|
|
||||||
(void)
|
|
||||||
(gestalt-union (sub (udp-packet ? (udp-listener 5999) ?))))
|
|
||||||
|
|
Loading…
Reference in New Issue