diff src/symbols.c @ 4833:4dd2389173fc

merge
author Ben Wing <ben@xemacs.org>
date Sun, 10 Jan 2010 01:06:15 -0600
parents 8b50bee3c88c
children 755ae5b97edb 9113c5044de8
line wrap: on
line diff
--- a/src/symbols.c	Sun Jan 10 00:49:30 2010 -0600
+++ b/src/symbols.c	Sun Jan 10 01:06:15 2010 -0600
@@ -600,7 +600,10 @@
 !(unloading_module && UNBOUNDP(newval)) &&
 #endif
       (symbol_is_constant (sym, val)
-       || (SYMBOL_IS_KEYWORD (sym) && !EQ (newval, sym))))
+#ifndef NO_NEED_TO_HANDLE_21_4_CODE
+       || (SYMBOL_IS_KEYWORD (sym) && !EQ (newval, sym))
+#endif
+      ))
     signal_error_1 (Qsetting_constant,
 		    UNBOUNDP (newval) ? list1 (sym) : list2 (sym, newval));
 }