10 lines
235 B
Scheme
10 lines
235 B
Scheme
(require (lib "mztake.ss" "mztake")
|
|
(lib "useful-code.ss" "mztake" "private"))
|
|
|
|
(set-main! "exception.ss")
|
|
|
|
(printf-b "exception.ss exited? ~a" (exited?))
|
|
|
|
(printf-b "last exception seen: ~a" (exceptions))
|
|
|
|
(set-running! true) |