# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 807689399 0
# Node ID eceb3f25e1152f07022ffceb16e05a12763ca102
# Parent  5569b3a433231f4f381a770d1d224c0e6f476c3a
(run_hook_with_args): Move the GCPRO2; add UNGCPRO.

diff -r 5569b3a43323 -r eceb3f25e115 src/eval.c
--- a/src/eval.c	Sat Aug 05 23:01:11 1995 +0000
+++ b/src/eval.c	Sun Aug 06 06:09:59 1995 +0000
@@ -1927,8 +1927,6 @@
   val = find_symbol_value (sym);
   ret = (cond == until_failure ? Qt : Qnil);
 
-  GCPRO2 (sym, val);
-
   if (EQ (val, Qunbound) || NILP (val))
     return ret;
   else if (!CONSP (val) || EQ (XCONS (val)->car, Qlambda))
@@ -1938,6 +1936,8 @@
     }
   else
     {
+      GCPRO2 (sym, val);
+
       for (;
 	   CONSP (val) && ((cond == to_completion)
 			   || (cond == until_success ? NILP (ret)
@@ -1966,6 +1966,8 @@
 	      ret = Ffuncall (nargs, args);
 	    }
 	}
+
+      UNGCPRO;
       return ret;
     }
 }