# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764461660 0
# Node ID 89ff61b53cee344c2aac64b557437d65b39f41e9
# Parent  e1967b6d9a5ce05ad0222339b2105cd54480594a
(store_symval_forwarding, Fsymbol_value): Use assignment, not initialization.

diff -r e1967b6d9a5c -r 89ff61b53cee src/data.c
--- a/src/data.c	Wed Mar 23 22:27:12 1994 +0000
+++ b/src/data.c	Wed Mar 23 22:27:40 1994 +0000
@@ -668,9 +668,9 @@
     case Lisp_Buffer_Objfwd:
       {
 	unsigned int offset = XUINT (valcontents);
-	Lisp_Object type =
-	  *(Lisp_Object *)(offset + (char *)&buffer_local_types);
+	Lisp_Object type;
 
+	type = *(Lisp_Object *)(offset + (char *)&buffer_local_types);
 	if (! NILP (type) && ! NILP (newval)
 	    && XTYPE (newval) != XINT (type))
 	  buffer_slot_type_mismatch (valcontents, newval);
@@ -786,8 +786,9 @@
   (sym)
      Lisp_Object sym;
 {
-  Lisp_Object val = find_symbol_value (sym);
+  Lisp_Object val;
 
+  val = find_symbol_value (sym);
   if (EQ (val, Qunbound))
     return Fsignal (Qvoid_variable, Fcons (sym, Qnil));
   else