(require (planet shawnpresser/racket-unix-sockets:1:0)) (define (serve path) (define listener (unix-socket-listen path 5)) (printf "listening: ~a" listener) (newline) (define (loop) (accept-and-handle listener) (loop)) (loop)) (define (accept-and-handle listener) (define-values (i o) (unix-socket-accept listener)) (printf "accepted: ~a" listener) (newline) (display (read-line i)) (newline)) (serve "tmp-socket")