Use rb_rescue2 to catch all exceptions instead of rb_rescue which onl…

…y catches StandardError

git-svn-id: svn://rubyforge.org/var/svn/tcl/trunk@10 017b7ecb-b1d0-4998-98d6-e9014aaf4887

TODO

@@ -1,3 +1,4 @@
 * Tcl::Interp#to_tcl should account for interpreter aliases (see http://wiki.tcl.tk/8766) and namespaces.
 
-* ConsoleInterp#exit crashes with "DeleteInterpProc called with active evals".
+* Implement ConsoleInterp#exit.
+

script/console

@@ -5,18 +5,13 @@ require File.join(File.dirname(__FILE__), *%w".. lib tcl")
 class ConsoleInterp < Tcl::Interp
   def initialize
     super
-    expose :exit
     expose :ruby_eval
   end
 
   def tcl_ruby_eval(script)
     Kernel.eval(script)
   end
 
-  def tcl_exit
-    exit
-  end
-
   protected
     def expose(name)
       _!(:interp, :alias, nil, name, nil, :interp_send, name)

src/tcl.c

@@ -55,7 +55,7 @@ static int rb_tcl_interp_send(ClientData clientData, Tcl_Interp *interp, int obj
 
   VALUE args = rb_ary_new3(2, (VALUE) clientData, interp_receive_args);
 
-  if (rb_rescue(rb_tcl_interp_send_begin, args, rb_tcl_interp_send_rescue, args) == Qtrue) {
+  if (rb_rescue2(rb_tcl_interp_send_begin, args, rb_tcl_interp_send_rescue, args, rb_eException) == Qtrue) {
     return TCL_RETURN;
   } else {
     return TCL_ERROR;