Mercurial > emacs

changeset 71825:7db6ed27e18f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fbyte_code): Use CHECK_VECTOR.
author Kim F. Storm <storm@cua.dk>
date Wed, 12 Jul 2006 13:14:26 +0000
parents d015c4ec8df4
children e80165512dee
files src/bytecode.c
diffstat 1 files changed, 3 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/src/bytecode.c	Wed Jul 12 13:14:11 2006 +0000
+++ b/src/bytecode.c	Wed Jul 12 13:14:26 2006 +0000
@@ -433,8 +433,7 @@
 #endif
 
   CHECK_STRING (bytestr);
-  if (!VECTORP (vector))
-    vector = wrong_type_argument (Qvectorp, vector);
+  CHECK_VECTOR (vector);
   CHECK_NUMBER (maxdepth);
 
   if (STRING_MULTIBYTE (bytestr))
@@ -547,9 +546,7 @@
 	    else if (NILP (v1))
 	      TOP = Qnil;
 	    else
-	      {
-		wrong_type_argument (Qlistp, v1);
-	      }
+	      wrong_type_argument (Qlistp, v1);
 	    break;
 	  }
 
@@ -580,9 +577,7 @@
 	    else if (NILP (v1))
 	      TOP = Qnil;
 	    else
-	      {
-		wrong_type_argument (Qlistp, v1);
-	      }
+	      wrong_type_argument (Qlistp, v1);
 	    break;
 	  }