From ef0a158fcef81f4e31cd2eed2c3aa8016689ff0b Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 13 Jun 2007 16:24:02 +0000 Subject: [PATCH] Simplifying svn: r6630 --- collects/web-server/docs/reference/web-config-unit.scrbl | 6 ------ collects/web-server/servlet-env.ss | 2 -- collects/web-server/web-config-sig.ss | 2 -- collects/web-server/web-config-unit.ss | 2 -- 4 files changed, 12 deletions(-) diff --git a/collects/web-server/docs/reference/web-config-unit.scrbl b/collects/web-server/docs/reference/web-config-unit.scrbl index 61164ea611..510335e37f 100644 --- a/collects/web-server/docs/reference/web-config-unit.scrbl +++ b/collects/web-server/docs/reference/web-config-unit.scrbl @@ -18,9 +18,6 @@ identifiers: Contains the configuration of individual virtual hosts. } -@; XXX Remove access -@defthing[access any/c]{Unused.} - @defthing[scripts (box/c (cache-table? path? servlet?))]{ Contains initially loaded servlets. } @@ -37,9 +34,6 @@ identifiers: Passed to @scheme[tcp-accept]. } -@; XXX Remove instances -@defthing[instances any/c]{Unused.} - @defthing[make-servlet-namespace make-servlet-namespace?]{ Passed to @scheme[servlets:make]. } diff --git a/collects/web-server/servlet-env.ss b/collects/web-server/servlet-env.ss index e8ae765930..904d38bd12 100644 --- a/collects/web-server/servlet-env.ss +++ b/collects/web-server/servlet-env.ss @@ -85,7 +85,5 @@ (define listen-ip i:listen-ip) (define initial-connection-timeout i:initial-connection-timeout) (define virtual-hosts i:virtual-hosts) - (define access i:access) - (define instances i:instances) (define scripts (box the-scripts)) (define make-servlet-namespace i:make-servlet-namespace))))) \ No newline at end of file diff --git a/collects/web-server/web-config-sig.ss b/collects/web-server/web-config-sig.ss index 2d71fc477b..2cdd96a4a6 100644 --- a/collects/web-server/web-config-sig.ss +++ b/collects/web-server/web-config-sig.ss @@ -1,10 +1,8 @@ (module web-config-sig (lib "a-signature.ss") max-waiting virtual-hosts - access scripts initial-connection-timeout port listen-ip - instances make-servlet-namespace) \ No newline at end of file diff --git a/collects/web-server/web-config-unit.ss b/collects/web-server/web-config-unit.ss index 979e7a733f..5365b1be92 100644 --- a/collects/web-server/web-config-unit.ss +++ b/collects/web-server/web-config-unit.ss @@ -68,8 +68,6 @@ (define listen-ip the-listen-ip) (define initial-connection-timeout (configuration-table-initial-connection-timeout table)) (define virtual-hosts the-virtual-hosts) - (define access (make-hash-table)) - (define instances (make-hash-table)) (define scripts (box (make-cache-table))) (define make-servlet-namespace the-make-servlet-namespace)))