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