Anonymous user
Echo server: Difference between revisions
make it actually function
m (Removed needless line) |
(make it actually function) |
||
Line 1,513:
<lang racket>
#lang racket
(define listener (tcp-listen 12321))
(
(thread (λ () (copy-port in out)
▲ (echo-server))
(close-output-port out)))
(echo-server)))
(mk-server)</lang>
=={{header|REALbasic}}==
|