Am 12.11.2005, 23:42 Uhr, schrieb David Janssens <[EMAIL PROTECTED]>:
[...] (require 'srfi-18 'udp) (define (read-packets) (let loop () (let ((s (udp-open-socket))) (udp-bind! s #f 6666) (receive (n data) (udp-recv s 2048) (print "packet received")) (loop)))) [...]
On a sidenote, I would rather create a new socket only once before entering the loop. cu, Thomas _______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
