# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 892363261 0
# Node ID bf0a3e277594ad512798c6e37bdda6a09e13abe3
# Parent  6cc3bb84b60e8f211a80da9253317446f1b02b60
(set_internal, Fmakunbound): Fix previous change.

diff -r 6cc3bb84b60e -r bf0a3e277594 src/data.c
--- a/src/data.c	Sat Apr 11 18:16:01 1998 +0000
+++ b/src/data.c	Sun Apr 12 06:41:01 1998 +0000
@@ -617,8 +617,7 @@
   CHECK_SYMBOL (symbol, 0);
   if (NILP (symbol) || EQ (symbol, Qt)
       || (XSYMBOL (symbol)->name->data[0] == ':'
-	  && keyword_symbols_constant_flag
-	  && ! EQ (XSYMBOL (symbol)->value, symbol)))
+	  && keyword_symbols_constant_flag))
     return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
   Fset (symbol, Qunbound);
   return symbol;
@@ -969,8 +968,7 @@
   CHECK_SYMBOL (symbol, 0);
   if (NILP (symbol) || EQ (symbol, Qt)
       || (XSYMBOL (symbol)->name->data[0] == ':'
-	  && keyword_symbols_constant_flag
-	  && ! EQ (XSYMBOL (symbol)->value, symbol)))
+	  && keyword_symbols_constant_flag && ! EQ (newval, symbol)))
     return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
   valcontents = XSYMBOL (symbol)->value;