13 lines
419 B
Scheme
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))))
|