# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1246703107 -7200
# Node ID f008a3a1bcb05635fb7c3abfc5918cb8eaf92456
# Parent  5d46c4a894e81548889d677381c80db0a56d01f3
add missing unwind_protect::run in pt-eval.cc

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-04  Jaroslav Hajek  <highegg@gmail.com>
+
+	* pt-eval.cc (do_unwind_protect_cleanup_code): Add missing
+	unwind_protect::run.
+
 2009-07-02  Jaroslav Hajek  <highegg@gmail.com>
 
 	* help.cc (do_which): Also look for files.
diff --git a/src/ov-fcn-handle.cc b/src/ov-fcn-handle.cc
--- a/src/ov-fcn-handle.cc
+++ b/src/ov-fcn-handle.cc
@@ -1349,10 +1349,7 @@
 
   octave_value f = symbol_table::find_function (tnm);
 
-  if (f.is_defined ())
-    retval = octave_value (new octave_fcn_handle (f, tnm));
-  else
-    error ("error creating function handle \"@%s\"", nm.c_str ());
+  retval = octave_value (new octave_fcn_handle (f, tnm));
 
   return retval;
 }
diff --git a/src/pt-eval.cc b/src/pt-eval.cc
--- a/src/pt-eval.cc
+++ b/src/pt-eval.cc
@@ -970,6 +970,8 @@
     unwind_protect::discard ();
   else
     unwind_protect::run ();
+
+  unwind_protect::run ();
 }
 
 void