diff src/dosfns.c @ 40656:cdfd4d09b79a

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

--- a/src/dosfns.c	Fri Nov 02 20:14:02 2001 +0000
+++ b/src/dosfns.c	Fri Nov 02 20:46:55 2001 +0000
@@ -65,13 +65,13 @@
   union REGS inregs, outregs;
   Lisp_Object val;
 
-  CHECK_NUMBER (interrupt, 0);
+  CHECK_NUMBER (interrupt);
   no = (unsigned long) XINT (interrupt);
-  CHECK_VECTOR (registers, 1);
+  CHECK_VECTOR (registers);
   if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8) 
     return Qnil;
   for (i = 0; i < 8; i++)
-    CHECK_NUMBER (XVECTOR (registers)->contents[i], 1);
+    CHECK_NUMBER (XVECTOR (registers)->contents[i]);
 
   inregs.x.ax    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]);
   inregs.x.bx    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]);
@@ -107,9 +107,9 @@
   char *buf;
   Lisp_Object val;
 
-  CHECK_NUMBER (address, 0);
+  CHECK_NUMBER (address);
   offs = (unsigned long) XINT (address);
-  CHECK_VECTOR (vector, 1);
+  CHECK_VECTOR (vector);
   len = XVECTOR (vector)-> size;
   if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) 
     return Qnil;
@@ -132,9 +132,9 @@
   char *buf;
   Lisp_Object val;
 
-  CHECK_NUMBER (address, 0);
+  CHECK_NUMBER (address);
   offs = (unsigned long) XINT (address);
-  CHECK_VECTOR (vector, 1);
+  CHECK_VECTOR (vector);
   len = XVECTOR (vector)-> size;
   if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) 
     return Qnil;
@@ -142,7 +142,7 @@
 
   for (i = 0; i < len; i++)
     {
-      CHECK_NUMBER (XVECTOR (vector)->contents[i], 1);
+      CHECK_NUMBER (XVECTOR (vector)->contents[i]);
       buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF;
     }
 
@@ -158,7 +158,7 @@
   (country_code, allkeys)
   Lisp_Object country_code;
 {
-  CHECK_NUMBER (country_code, 0);
+  CHECK_NUMBER (country_code);
   if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
     return Qnil;
   return Qt;
@@ -524,7 +524,7 @@
   struct statfs stfs;
   Lisp_Object encoded, value;
 
-  CHECK_STRING (filename, 0);
+  CHECK_STRING (filename);
   filename = Fexpand_file_name (filename, Qnil);
   encoded = ENCODE_FILE (filename);