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

fix handin server's web-server wrapping to handle tcp-addresses on a listener

Browse Source
This commit is contained in:
Matthew Flatt 2010-08-19 15:01:58 -06:00
parent 5d584e5d26
commit 1437d47fda
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/handin-server/run-servlet.rkt
View File

@ -52,9 +52,13 @@
#t)
(define (tcp-abandon-port p)
(ssl-abandon-port (hash-ref port->ssl p p)))
(define (tcp-addresses p . more)
(apply ssl-addresses (hash-ref port->ssl p p) more))
;; unused
(define (tcp-addresses p [port-numbers? #f])
(if (void? p) ;; from listen!
(if port-numbers?
(values "localhost" "0.0.0.0" 1 1)
(values "localhost" "0.0.0.0"))
(ssl-addresses (hash-ref port->ssl p p) port-numbers?)))
;; prevent the server from actually listening:
(define tcp-close void)
(define tcp-listen void)
(define tcp-listener? void?)