Echo server: Difference between revisions
Content added Content deleted
m (Removed needless line) |
(make it actually function) |
||
Line 1,513: | Line 1,513: | ||
<lang racket> |
<lang racket> |
||
#lang racket |
#lang racket |
||
(define listener (tcp-listen 12321)) |
(define listener (tcp-listen 12321)) |
||
( |
(define (mk-server) |
||
⚫ | |||
(define-values [I O] (tcp-accept listener)) |
|||
(define-values (in out) (tcp-accept listener)) |
|||
(thread (λ () (copy-port in out) |
|||
⚫ | |||
(close-output-port out))) |
|||
</lang> |
|||
(echo-server))) |
|||
(mk-server)</lang> |
|||
=={{header|REALbasic}}== |
=={{header|REALbasic}}== |