up

svn: r8727

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)))
 

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"))