diff --git a/collects/web-server/dispatchers/dispatch-lang.ss b/collects/web-server/dispatchers/dispatch-lang.ss index 59e57194e5..f50f48727d 100644 --- a/collects/web-server/dispatchers/dispatch-lang.ss +++ b/collects/web-server/dispatchers/dispatch-lang.ss @@ -25,8 +25,6 @@ #:responders-servlet (url? any/c . -> . response?)) dispatcher/c)]) -; XXX url->servlet -; XXX optional session manager (define interface-version 'v1) (define (make #:url->path url->path #:make-servlet-namespace [make-servlet-namespace (make-make-servlet-namespace)] diff --git a/collects/web-server/dispatchers/dispatch-servlets.ss b/collects/web-server/dispatchers/dispatch-servlets.ss index 1960ed1290..72f2b0e1b8 100644 --- a/collects/web-server/dispatchers/dispatch-servlets.ss +++ b/collects/web-server/dispatchers/dispatch-servlets.ss @@ -30,7 +30,6 @@ dispatcher/c))]) (define interface-version 'v1) -; XXX url->servlet and remove config:scripts (define (make config:scripts #:url->path url->path #:make-servlet-namespace [make-servlet-namespace (make-make-servlet-namespace)] @@ -157,7 +156,6 @@ web-server/servlet/web web-server/servlet/web-cells))] [current-custodian (make-servlet-custodian)]) - ; XXX load/use-compiled breaks errortrace (define s (load/use-compiled a-path)) (cond [(void? s) @@ -196,6 +194,6 @@ "Loading ~e produced ~n~e~n instead of either (1) a response or (2) nothing and exports 'interface-version" a-path s)]))) (values (lambda () - ;; XXX - this is broken - only out of date or specifically mentioned scripts should be flushed. This destroys persistent state! + ;; This is broken - only out of date or specifically mentioned scripts should be flushed. This destroys persistent state! (cache-table-clear! (unbox config:scripts))) servlet-content-producer)) diff --git a/collects/web-server/lang/web.ss b/collects/web-server/lang/web.ss index 8abf76cf13..e24117dda4 100644 --- a/collects/web-server/lang/web.ss +++ b/collects/web-server/lang/web.ss @@ -48,7 +48,6 @@ ;; send/suspend/hidden: (url input-field -> response) -> request ;; like send/suspend except the continuation is encoded in a hidden field -;; XXX incorporate stuffing in some way (define (send/suspend/hidden page-maker) (send/suspend (lambda (k)