(define (t1) (when (socket-receive-ready? s) (receive (n data host port) (udp-recvfrom s 128) (print "Got " n " bytes of data from " host))) (thread-yield!) (t1))