Simplifying

svn: r6630

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].
 }

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)))))

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)

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)))