diff options
Diffstat (limited to 'trunk/Lib/tcl/exception.i')
-rw-r--r-- | trunk/Lib/tcl/exception.i | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/trunk/Lib/tcl/exception.i b/trunk/Lib/tcl/exception.i new file mode 100644 index 000000000..4d22797cc --- /dev/null +++ b/trunk/Lib/tcl/exception.i @@ -0,0 +1,6 @@ +%include <typemaps/exception.swg> + + +%insert("runtime") { + %define_as(SWIG_exception(code, msg), %block(%error(code, msg); return TCL_ERROR;)) +} |