RosettaCodeData/Task/Echo-server/Racket/echo-server.rkt

#lang racket
(define listener (tcp-listen 12321))
(let echo-server ()
  (define-values [I O] (tcp-accept listener))
  (thread (λ() (copy-port I O) (close-output-port O)))
  (echo-server))
CDE 2013-04-10 16:57:12 -07:00			`#lang racket`
			`(define listener (tcp-listen 12321))`
			`(let echo-server ()`
update 2013-06-05 21:47:54 +00:00			`(define-values [I O] (tcp-accept listener))`
			`(thread (λ() (copy-port I O) (close-output-port O)))`
CDE 2013-04-10 16:57:12 -07:00			`(echo-server))`