scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

let handler exit if error occurs

This commit is contained in:
interp 2002-08-28 15:40:32 +00:00
parent e877336d0a
commit 7fd23a0ceb
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/httpd/cgi-server.scm
View File

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