diff --git a/collects/web-server/prototype-web-server/dispatch-servlets2.ss b/collects/web-server/prototype-web-server/dispatch-servlets2.ss index ad707b3f09..8aa65a64d6 100644 --- a/collects/web-server/prototype-web-server/dispatch-servlets2.ss +++ b/collects/web-server/prototype-web-server/dispatch-servlets2.ss @@ -16,7 +16,6 @@ (only "private/web.ss" start-servlet) (lib "web-cells.ss" "web-server" "prototype-web-server" "lang-api") - "xexpr-extras.ss" "private/utils.ss") (provide make) @@ -155,8 +154,7 @@ (request-method req)))]) (printf "session-handler ~S~n" (session-handler ses)) (output-response conn - (xexpr+extras->xexpr - ((session-handler ses) req))))))] + ((session-handler ses) req)))))] [else (myprint "resume-session: Unknown ses~n") ;; TODO: should just start a new session here. diff --git a/collects/web-server/prototype-web-server/xexpr-extras.ss b/collects/web-server/prototype-web-server/private/xexpr-extras.ss similarity index 100% rename from collects/web-server/prototype-web-server/xexpr-extras.ss rename to collects/web-server/prototype-web-server/private/xexpr-extras.ss