# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1246640347 -7200
# Node ID 356268e4ad373fc7576b71ecd7bd4a7d8a73f63c
# Parent  c477c7023698d02454e23de0b88ce2f4acfefa1d
fix 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-03  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/pt-eval.cc b/src/pt-eval.cc
--- a/src/pt-eval.cc
+++ b/src/pt-eval.cc
@@ -986,6 +986,8 @@
     unwind_protect::discard ();
   else
     unwind_protect::run ();
+
+  unwind_protect::run ();
 }
 
 void