# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1152710066 0
# Node ID 7db6ed27e18f2b862e938661e71b945f5b66d567
# Parent  d015c4ec8df485e6d533fd52ac21cfee1687ce92
(Fbyte_code): Use CHECK_VECTOR.

diff -r d015c4ec8df4 -r 7db6ed27e18f src/bytecode.c
--- 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;
 	  }