From 7fd23a0ceb9243aa171691d7849cc55b0763e008 Mon Sep 17 00:00:00 2001 From: interp Date: Wed, 28 Aug 2002 15:40:32 +0000 Subject: [PATCH] let handler exit if error occurs --- scheme/httpd/cgi-server.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm index bf5f99b..c3c8ca8 100644 --- a/scheme/httpd/cgi-server.scm +++ b/scheme/httpd/cgi-server.scm @@ -130,9 +130,10 @@ (lambda (exit) (with-handler (lambda (condition more) - (if (cgi-error? condition) - (create-error-response condition req) - (make-http-error-response http-status/internal-error req))) + (exit + (if (cgi-error? condition) + (create-error-response condition req) + (make-http-error-response http-status/internal-error req)))) (lambda () (compute-cgi path req bin-dir request-invariant-cgi-env))))) (make-http-error-response http-status/bad-request req "Empty CGI script"))))))