src/eval.c (unwind_to_catch) [DEBUG_GCPRO]: Remove redundant assignment.

2 files changed, 5 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 819ccd60f72..f6595637f7a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-02  Juanma Barranquero  <lekktu@gmail.com>
+
+        * eval.c (unwind_to_catch) [DEBUG_GCPRO]: Remove redundant assignment.
+
 2011-04-02  Jan Djärv  <jan.h.d@swipnet.se>
 
         * nsterm.m (ns_update_auto_hide_menu_bar): Only for OSX 10.6 or
diff --git a/src/eval.c b/src/eval.c
index 948c2e4d158..9b6605eed2e 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1297,7 +1297,7 @@ unwind_to_catch (struct catchtag *catch, Lisp_Object value)
   byte_stack_list = catch->byte_stack;
   gcprolist = catch->gcpro;
 #ifdef DEBUG_GCPRO
-  gcpro_level = gcprolist ? gcprolist->level + 1 : gcpro_level = 0;
+  gcpro_level = gcprolist ? gcprolist->level + 1 : 0;
 #endif
   backtrace_list = catch->backlist;
   lisp_eval_depth = catch->lisp_eval_depth;