Jump to content

Echo server: Difference between revisions

24 bytes removed ,  11 years ago
Line 1,419:
 
An example echo server from the front page of the Racket website:
<lang lispracket>
 
<lang lisp>
#lang racket
 
(define listener (tcp-listen 12321))
(let echo-server ()
(define-values (in[I out)O] (tcp-accept listener))
(thread (λ () (copy-port inI outO) (close-output-port O)))
(close-output-port out)))
(echo-server))
</lang>
Cookies help us deliver our services. By using our services, you agree to our use of cookies.