Remove plain Racket echo server comparison implementation.

This commit is contained in:
Tony Garnock-Jones 2013-03-28 23:08:11 -04:00
parent 67057d2db7
commit c3dddd1184
1 changed files with 0 additions and 15 deletions

View File

@ -1,15 +0,0 @@
#lang racket
(define (connection-handler cin cout)
(let loop ()
(define ch (read-char cin))
(when (not (eof-object? ch))
(display ch cout)
(flush-output cout)
(loop))))
(let ((listener (tcp-listen 5999 4 #t)))
(let loop ()
(define-values (cin cout) (tcp-accept listener))
(thread (lambda () (connection-handler cin cout)))
(loop)))