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

Fix re Robby

Browse Source
This commit is contained in:
Jay McCarthy 2013-05-06 06:49:51 -06:00
parent 7fd52472b4
commit a734c6badb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/private/dispatch-server-unit.rkt
View File

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