diff src/eval.c @ 40656:cdfd4d09b79a

Update usage of CHECK_ macros (remove unused second argument).

--- a/src/eval.c	Fri Nov 02 20:14:02 2001 +0000
+++ b/src/eval.c	Fri Nov 02 20:46:55 2001 +0000
@@ -690,8 +690,8 @@
 {
   struct Lisp_Symbol *sym;
   
-  CHECK_SYMBOL (symbol, 0);
-  CHECK_SYMBOL (aliased, 1);
+  CHECK_SYMBOL (symbol);
+  CHECK_SYMBOL (aliased);
 
   if (SYMBOL_CONSTANT_P (symbol))
     error ("Cannot make a constant an alias");
@@ -1215,7 +1215,7 @@
   var      = Fcar (args);
   bodyform = Fcar (Fcdr (args));
   handlers = Fcdr (Fcdr (args));
-  CHECK_SYMBOL (var, 0);
+  CHECK_SYMBOL (var);
 
   for (val = handlers; ! NILP (val); val = Fcdr (val))
     {
@@ -1825,8 +1825,8 @@
   Lisp_Object args[4];
 #endif
 
-  CHECK_SYMBOL (function, 0);
-  CHECK_STRING (file, 1);
+  CHECK_SYMBOL (function);
+  CHECK_STRING (file);
 
   /* If function is defined and not as an autoload, don't override */
   if (!EQ (XSYMBOL (function)->function, Qunbound)
@@ -1888,7 +1888,7 @@
   struct gcpro gcpro1, gcpro2, gcpro3;
 
   fun = funname;
-  CHECK_SYMBOL (funname, 0);
+  CHECK_SYMBOL (funname);
   GCPRO3 (fun, funname, fundef);
 
   /* Preserve the match data.  */
@@ -2158,7 +2158,7 @@
   fun = args [0];
   funcall_args = 0;
   spread_arg = args [nargs - 1];
-  CHECK_LIST (spread_arg, nargs);
+  CHECK_LIST (spread_arg);
   
   numargs = XINT (Flength (spread_arg));
 
@@ -2960,7 +2960,7 @@
   Lisp_Object ovalue;
   Lisp_Object valcontents;
 
-  CHECK_SYMBOL (symbol, 0);
+  CHECK_SYMBOL (symbol);
   if (specpdl_ptr == specpdl + specpdl_size)
     grow_specpdl ();
 
@@ -3117,7 +3117,7 @@
 {
   register struct specbinding *ptr = specpdl;
 
-  CHECK_SYMBOL (symbol, 0);
+  CHECK_SYMBOL (symbol);
   for (; ptr != specpdl_ptr; ptr++)
     {
       if (EQ (ptr->symbol, symbol))
@@ -3132,7 +3132,7 @@
 {
   register struct specbinding *ptr = specpdl;
 
-  CHECK_SYMBOL (symbol, 0);
+  CHECK_SYMBOL (symbol);
   for (; ptr != specpdl_ptr; ptr++)
     {
       if (EQ (ptr->symbol, symbol))
@@ -3155,7 +3155,7 @@
   register struct backtrace *backlist = backtrace_list;
   register int i;
 
-  CHECK_NUMBER (level, 0);
+  CHECK_NUMBER (level);
 
   for (i = 0; backlist && i < XINT (level); i++)
     {
@@ -3243,7 +3243,7 @@
   register int i;
   Lisp_Object tem;
 
-  CHECK_NATNUM (nframes, 0);
+  CHECK_NATNUM (nframes);
 
   /* Find the frame requested.  */
   for (i = 0; backlist && i < XFASTINT (nframes); i++)