Chat server: Difference between revisions

This is a very basic chat server, but it does everything that is needed for this task.

 

#lang racket

 

(thread (client i o)) (set! outs (cons o outs)) (chat-server listener))

 

((client (current-input-port) (current-output-port)))

</lang>