From d8e2b5ba620f3a69dd22d778d00aec3b71e3a87a Mon Sep 17 00:00:00 2001
From: Juanma Barranquero
Date: Sat, 2 Apr 2011 15:11:16 +0200
Subject: src/eval.c (unwind_to_catch) [DEBUG_GCPRO]: Remove redundant
 assignment.

---
 src/eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/eval.c')

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;
-- 
cgit v1.2.1