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

Removing note about feature that can be implemented externally

Browse Source 
svn: r6646
This commit is contained in:
Jay McCarthy 2007-06-13 21:16:28 +00:00
parent c4bc63f641
commit 8e5e738e60
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/configuration/responders.ss
View File

@ -6,7 +6,6 @@
"../private/request-structs.ss") "../private/request-structs.ss")
; file-response : nat str str [(cons sym str) ...] -> response ; file-response : nat str str [(cons sym str) ...] -> response
; XXX - cache files with a refresh option.
; The server should still start without the files there, so the ; The server should still start without the files there, so the
; configuration tool still runs. (Alternatively, find an work around.) ; configuration tool still runs. (Alternatively, find an work around.)
(define (file-response code short text-file . headers) (define (file-response code short text-file . headers)
@ -35,7 +34,6 @@
; gen-servlet-responder : str -> url tst -> response ; gen-servlet-responder : str -> url tst -> response
(define (gen-servlet-responder servlet-error-file) (define (gen-servlet-responder servlet-error-file)
(lambda (url exn) (lambda (url exn)
; XXX use separate log file
((error-display-handler) ((error-display-handler)
(format "Servlet exception:\n~a\n" (exn-message exn)) (format "Servlet exception:\n~a\n" (exn-message exn))
exn) exn)