You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
5 lines
189 B
5 lines
189 B
(define listener (tcp-listen 12345))
|
|
(let echo-server ()
|
|
(define-values (in out) (tcp-accept listener))
|
|
(thread (lambda () (copy-port in out)
|
|
(close-output-port out))
|