Author: coke
Date: Sun Feb  5 14:48:33 2006
New Revision: 11432

Modified:
   trunk/languages/tcl/lib/macros.pir
Log:
tcl - Make .catch() actually get the right # of args in an exception handler.

Note: this has no effect on RT#38438



Modified: trunk/languages/tcl/lib/macros.pir
==============================================================================
--- trunk/languages/tcl/lib/macros.pir  (original)
+++ trunk/languages/tcl/lib/macros.pir  Sun Feb  5 14:48:33 2006
@@ -15,7 +15,8 @@ Preamble for any tcl-related exception h
 
 .macro catch ()
   .sym pmc exception
-  get_results "(0)", exception
+  .sym string exception_message_unused_XXX
+  get_results '(0,0)', exception, exception_message_unused_XXX
 .endm
 
 =head2 rethrow ()

Reply via email to