From 8738d88f28a1f55fc2856c7806e92bbdd208e975 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 19 Feb 2008 17:56:19 +0000 Subject: [PATCH] up svn: r8727 --- collects/web-server/configuration/responders.ss | 2 +- .../web-server/default-web-root/servlets/examples/error.ss | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletion(-) create mode 100644 collects/web-server/default-web-root/servlets/examples/error.ss diff --git a/collects/web-server/configuration/responders.ss b/collects/web-server/configuration/responders.ss index abb96d653b..bc6b3c9195 100644 --- a/collects/web-server/configuration/responders.ss +++ b/collects/web-server/configuration/responders.ss @@ -35,7 +35,7 @@ (define (gen-servlet-responder servlet-error-file) (lambda (url exn) ((error-display-handler) - (format "Servlet exception:\n~a\n" (exn-message exn)) + (format "Servlet (@ ~a) exception:\n~e\n" (url->string url) (exn-message exn)) exn) (file-response 500 "Servlet error" servlet-error-file))) diff --git a/collects/web-server/default-web-root/servlets/examples/error.ss b/collects/web-server/default-web-root/servlets/examples/error.ss new file mode 100644 index 0000000000..eb8c0914ef --- /dev/null +++ b/collects/web-server/default-web-root/servlets/examples/error.ss @@ -0,0 +1,6 @@ +#lang scheme/base +(provide (all-defined-out)) +(define interface-version 'v1) +(define timeout +inf.0) +(define (start initial-request) + (error 'error "Whoops")) \ No newline at end of file