suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more Rackety, useless exn msg

Browse Source
This commit is contained in:
Matthias Felleisen 2014-09-30 09:31:24 -04:00
parent 98e9bc7f9c
commit 549776eaad
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pkgs/htdp-pkgs/htdp-lib/2htdp/private/universe.rkt
View File

@ -170,23 +170,18 @@
(define tcp-listener (define tcp-listener
(with-handlers ((exn:fail:network? (lambda (x) (stop! x)))) (with-handlers ((exn:fail:network? (lambda (x) (stop! x))))
(tcp-listen port 4 #t))) (tcp-listen port 4 #t)))
;; (list IPort OPort) -> Void ;; [list IPort OPort] -> Void
(define (add-iworld in-out) (define (add-iworld in-out)
(define in (first in-out)) (define in (first in-out))
(define out (second in-out)) (define out (second in-out))
;; is it possible to kill the server with lots of bad connections? ;; is it possible to kill the server with lots of bad connections?
(with-handlers ((tcp-eof? (lambda _ (void))) (with-handlers ((tcp-eof? (lambda _ (void)))
(exn? (lambda (e) (exn? (lambda (e) (printf "process registration failed!\n"))))
(printf "process registration failed!\n~a" (tcp-process-registration in out (lambda (info) (pnew (create-iworld in out info))))))
(exn-message e)))))
(tcp-process-registration
in out (lambda (info) (pnew (create-iworld in out info))))))
;; IWorld -> [IPort -> Void] ;; IWorld -> [IPort -> Void]
(define (process-message p) (define (process-message p)
(lambda (in) (lambda (in)
(define (disc e) (with-handlers ((tcp-eof? (lambda (e) (pdisconnect p))))
(pdisconnect p))
(with-handlers ((tcp-eof? disc))
(pmsg p (tcp-receive in))))) (pmsg p (tcp-receive in)))))
;; --- go universe go --- ;; --- go universe go ---
(set! iworlds '()) (set! iworlds '())