7 lines
175 B
Scheme
7 lines
175 B
Scheme
(set-main! "exception.ss")
|
|
|
|
(printf-b "exception.ss exited? ~a" (process:exited?))
|
|
|
|
(printf-b "last exception seen: ~a" (hold (process:exceptions)))
|
|
|
|
(set-running! true) |