suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Moving TODOs

Browse Source 
svn: r12329
This commit is contained in:
Jay McCarthy 2008-11-06 16:33:19 +00:00
parent 4215289320
commit dd0bc805fb
3 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/dispatchers/dispatch-lang.ss
View File

@ -25,8 +25,6 @@
#:responders-servlet (url? any/c . -> . response?)) #:responders-servlet (url? any/c . -> . response?))
dispatcher/c)]) dispatcher/c)])
; XXX url->servlet
; XXX optional session manager
(define interface-version 'v1) (define interface-version 'v1)
(define (make #:url->path url->path (define (make #:url->path url->path
#:make-servlet-namespace [make-servlet-namespace (make-make-servlet-namespace)] #:make-servlet-namespace [make-servlet-namespace (make-make-servlet-namespace)]

4
collects/web-server/dispatchers/dispatch-servlets.ss
View File

@ -30,7 +30,6 @@
dispatcher/c))]) dispatcher/c))])
(define interface-version 'v1) (define interface-version 'v1)
; XXX url->servlet and remove config:scripts
(define (make config:scripts (define (make config:scripts
#:url->path url->path #:url->path url->path
#:make-servlet-namespace [make-servlet-namespace (make-make-servlet-namespace)] #:make-servlet-namespace [make-servlet-namespace (make-make-servlet-namespace)]
@ -157,7 +156,6 @@
web-server/servlet/web web-server/servlet/web
web-server/servlet/web-cells))] web-server/servlet/web-cells))]
[current-custodian (make-servlet-custodian)]) [current-custodian (make-servlet-custodian)])
; XXX load/use-compiled breaks errortrace
(define s (load/use-compiled a-path)) (define s (load/use-compiled a-path))
(cond (cond
[(void? s) [(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)]))) "Loading ~e produced ~n~e~n instead of either (1) a response or (2) nothing and exports 'interface-version" a-path s)])))
(values (lambda () (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))) (cache-table-clear! (unbox config:scripts)))
servlet-content-producer)) servlet-content-producer))

1
collects/web-server/lang/web.ss
View File

@ -48,7 +48,6 @@
;; send/suspend/hidden: (url input-field -> response) -> request ;; send/suspend/hidden: (url input-field -> response) -> request
;; like send/suspend except the continuation is encoded in a hidden field ;; like send/suspend except the continuation is encoded in a hidden field
;; XXX incorporate stuffing in some way
(define (send/suspend/hidden page-maker) (define (send/suspend/hidden page-maker)
(send/suspend (send/suspend
(lambda (k) (lambda (k)