Fix re Robby

This commit is contained in:
Jay McCarthy 2013-05-06 06:49:51 -06:00
parent 7fd52472b4
commit a734c6badb

View File

@ -62,12 +62,12 @@
(thread
(lambda ()
(handle-connection ip op
#:port-addresses
(lambda (ip)
(values "127.0.0.1"
"127.0.0.1"))))))))
;; handle-connection : input-port output-port (input-port -> string string) -> void
;; returns immediately, spawning a thread to handle
(define (handle-connection ip op
#:port-addresses [port-addresses tcp-addresses])
(define conn