diff --git a/collects/web-server/prototype-web-server/dispatch-servlets2.ss b/collects/web-server/prototype-web-server/dispatch-lang.ss similarity index 98% rename from collects/web-server/prototype-web-server/dispatch-servlets2.ss rename to collects/web-server/prototype-web-server/dispatch-lang.ss index 63ac870de1..d7bd09f07f 100644 --- a/collects/web-server/prototype-web-server/dispatch-servlets2.ss +++ b/collects/web-server/prototype-web-server/dispatch-lang.ss @@ -1,4 +1,4 @@ -(module dispatch-servlets2 mzscheme +(module dispatch-lang mzscheme (require (lib "kw.ss") (lib "contract.ss") (lib "url.ss" "net") diff --git a/collects/web-server/prototype-web-server/run.ss b/collects/web-server/prototype-web-server/run.ss index b5a80f4cd8..6d308e4e09 100644 --- a/collects/web-server/prototype-web-server/run.ss +++ b/collects/web-server/prototype-web-server/run.ss @@ -6,7 +6,7 @@ (prefix filter: (lib "dispatch-filter.ss" "web-server" "dispatchers")) (prefix const: (lib "dispatch-const.ss" "web-server" "dispatchers")) (prefix sequencer: (lib "dispatch-sequencer.ss" "web-server" "dispatchers")) - (prefix servlets2: (lib "dispatch-servlets2.ss" "web-server" "prototype-web-server"))) + (prefix lang: (lib "dispatch-lang.ss" "web-server" "prototype-web-server"))) (define server-root-path (build-path "~" "Development" "plt" "default-web-root")) (define default-host-path (build-path server-root-path "conf")) @@ -22,10 +22,10 @@ #:dispatch (sequencer:make (filter:make #rx"\\.ss" - (servlets2:make #:url->path (fsmap:make-url->path/optimism url->path) - #:timeouts-servlet-connection 86400 - #:responders-servlet-loading (gen-servlet-responder servlet-error-file) - #:responders-servlet (gen-servlet-responder servlet-error-file))) + (lang:make #:url->path (fsmap:make-url->path/optimism url->path) + #:timeouts-servlet-connection 86400 + #:responders-servlet-loading (gen-servlet-responder servlet-error-file) + #:responders-servlet (gen-servlet-responder servlet-error-file))) (files:make #:url->path url->path #:mime-types-path (build-path server-root-path "mime.types") #:indices (list "index.html" "index.htm"))