From: Kim F. Storm <storm@cua.dk>
Date: Wed, 12 Jul 2006 13:14:26 +0000 (+0000)
Subject: (Fbyte_code): Use CHECK_VECTOR.
X-Git-Tag: emacs-pretest-22.0.90~1513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c616acb810400c81dc423735b41506670bc80839;p=emacs.git

(Fbyte_code): Use CHECK_VECTOR.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index 0d06890eabf..d71006cb660 100644
--- 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;
 	  }