From 549776eaad73599dc91e15fb68f8370ed8f9b46a Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Tue, 30 Sep 2014 09:31:24 -0400 Subject: [PATCH] more Rackety, useless exn msg --- .../htdp-pkgs/htdp-lib/2htdp/private/universe.rkt | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/pkgs/htdp-pkgs/htdp-lib/2htdp/private/universe.rkt b/pkgs/htdp-pkgs/htdp-lib/2htdp/private/universe.rkt index b0544fa990..9d8ddd292e 100644 --- a/pkgs/htdp-pkgs/htdp-lib/2htdp/private/universe.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/2htdp/private/universe.rkt @@ -164,29 +164,24 @@ (define (loop) (apply sync (handle-evt (tcp-accept-evt tcp-listener) add-iworld) - (map(lambda (p) (handle-evt (iworld-in p) (process-message p))) iworlds)) + (map (lambda (p) (handle-evt (iworld-in p) (process-message p))) iworlds)) (loop)) ;;; WHERE (define tcp-listener (with-handlers ((exn:fail:network? (lambda (x) (stop! x)))) (tcp-listen port 4 #t))) - ;; (list IPort OPort) -> Void + ;; [list IPort OPort] -> Void (define (add-iworld in-out) (define in (first in-out)) (define out (second in-out)) ;; is it possible to kill the server with lots of bad connections? (with-handlers ((tcp-eof? (lambda _ (void))) - (exn? (lambda (e) - (printf "process registration failed!\n~a" - (exn-message e))))) - (tcp-process-registration - in out (lambda (info) (pnew (create-iworld in out info)))))) + (exn? (lambda (e) (printf "process registration failed!\n")))) + (tcp-process-registration in out (lambda (info) (pnew (create-iworld in out info)))))) ;; IWorld -> [IPort -> Void] (define (process-message p) (lambda (in) - (define (disc e) - (pdisconnect p)) - (with-handlers ((tcp-eof? disc)) + (with-handlers ((tcp-eof? (lambda (e) (pdisconnect p)))) (pmsg p (tcp-receive in))))) ;; --- go universe go --- (set! iworlds '())