diff src/elhash.c @ 2:ac2d302a0011 r19-15b2

Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 9ee227acff29
line wrap: on
line diff
--- a/src/elhash.c	Mon Aug 13 08:45:53 2007 +0200
+++ b/src/elhash.c	Mon Aug 13 08:46:35 2007 +0200
@@ -305,14 +305,12 @@
 
   CHECK_SYMBOL (sym);
 
-  if (EQ (sym, Qeq))
-    return HASHTABLE_EQ;
-  if (EQ (sym, Qequal))
-    return HASHTABLE_EQUAL;
-  if (EQ (sym, Qeql))
-    return HASHTABLE_EQL;
+  if (EQ (sym, Qeq))    return HASHTABLE_EQ;
+  if (EQ (sym, Qequal)) return HASHTABLE_EQUAL;
+  if (EQ (sym, Qeql))   return HASHTABLE_EQL;
+  
   signal_simple_error ("Invalid hashtable test fun", sym);
-  return 0; /* not reached */
+  return HASHTABLE_EQ; /* not reached */
 }
 
 DEFUN ("make-hashtable", Fmake_hashtable, Smake_hashtable, 1, 2, 0 /*
@@ -911,6 +909,6 @@
 void
 vars_of_elhash (void)
 {
-  /* This must not be staticpro'd */
+  /* This must NOT be staticpro'd */
   Vall_weak_hashtables = Qnil;
 }