Demonstrates how MzTake catches exceptions.
exception/exception.ss
(module exception mzscheme (thread (lambda () (raise 'exn:oops-made-a-mztake!))))
exception/exception-mztake.ss
(define-mztake-process p ("exception.ss")) (printf-b "exception.ss exited? ~a" (process:exited? p)) (printf-b "last exception seen: ~a" (hold (process:exceptions p))) (start/resume p)