(Fbyte_code): Use CHECK_VECTOR.

diff --git a/src/bytecode.c b/src/bytecode.c
index 0d06890eabfc4e06794c90a9f5a04bb6b22f79d2..d71006cb660bfadf0e3c492924005be136c7bbdf 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -433,8 +433,7 @@ If the third argument is incorrect, Emacs may crash.  */)
 #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 @@ If the third argument is incorrect, Emacs may crash.  */)
            else if (NILP (v1))
              TOP = Qnil;
            else
-             {
-               wrong_type_argument (Qlistp, v1);
-             }
+             wrong_type_argument (Qlistp, v1);
            break;
          }
 
@@ -580,9 +577,7 @@ If the third argument is incorrect, Emacs may crash.  */)
            else if (NILP (v1))
              TOP = Qnil;
            else
-             {
-               wrong_type_argument (Qlistp, v1);
-             }
+             wrong_type_argument (Qlistp, v1);
            break;
          }