04e9cefc17
changed mztake-process to define-mztake-process changed 'break to 'entry improved error messages traces get processed in the order they are defined in the script file now. svn: r148
17 lines
631 B
Scheme
17 lines
631 B
Scheme
#| This program starts a thread, the thread raises an exception,
|
|
this tests how MzTake catches exceptions, even if they come from
|
|
anonymous locations.
|
|
|
|
We don't even need to bind any variables or add any breaks, we just
|
|
run the program and catch the exception it throws.
|
|
|#
|
|
|
|
(define-mztake-process p ("exception.ss"))
|
|
|
|
(printf-b "exception.ss exited? ~a" (process:exited? p))
|
|
;; Prints out a behavior that tells you whether the debug-process is still running...
|
|
|
|
(printf-b "last exception seen: ~a" (hold (process:exceptions p)))
|
|
;; Prints out the last exception that the program threw
|
|
|
|
(start/resume p) |