From 1437d47fda391db78695abea7c32a2d7efc57c3d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 19 Aug 2010 15:01:58 -0600 Subject: [PATCH] fix handin server's web-server wrapping to handle tcp-addresses on a listener --- collects/handin-server/run-servlet.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/handin-server/run-servlet.rkt b/collects/handin-server/run-servlet.rkt index 7783154711..1b6c6722f8 100644 --- a/collects/handin-server/run-servlet.rkt +++ b/collects/handin-server/run-servlet.rkt @@ -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?)