From c3dddd11844e73400e494f630cc6e471e30a8066 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 28 Mar 2013 23:08:11 -0400 Subject: [PATCH] Remove plain Racket echo server comparison implementation. --- marketplace/examples/echo-racket.rkt | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 marketplace/examples/echo-racket.rkt diff --git a/marketplace/examples/echo-racket.rkt b/marketplace/examples/echo-racket.rkt deleted file mode 100644 index c995432..0000000 --- a/marketplace/examples/echo-racket.rkt +++ /dev/null @@ -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)))