11 lines
190 B
Text
11 lines
190 B
Text
|
define main();
|
||
|
|
vars cargo;
|
||
|
|
define catcher();
|
||
|
|
;;; print exception data
|
||
|
|
cargo =>
|
||
|
|
enddefine;
|
||
|
|
catch(throw_exception, catcher, [my_exception ?cargo]);
|
||
|
|
enddefine;
|
||
|
|
|
||
|
|
main();
|