ikarus/lib/cgi-errors-to-browser.ss

13 lines
419 B
Scheme

(module ()
#| set the error handler to output an error page should
an error occur |#
(error-handler
(lambda (who msg . args)
(display "Content-type: text/html\n\n")
(display "<font color=\"red\"><pre>")
(if who
(printf "Error: ~a.\n" (apply format msg args))
(printf "Error in ~a: ~a.\n" who (apply format msg args)))
(display "</pre></font>")
(exit 0))))