diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-07-12 13:14:26 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-07-12 13:14:26 +0000 |
| commit | 9d4e7d1628d6aec795c6a0e82b3bac3bea4c4405 (patch) | |
| tree | 9d81a01488607c8ce03aa76244fb562637328d21 /src/bytecode.c | |
| parent | c633de71ba0d13777bdb67122c3a43489fe358e9 (diff) | |
| download | emacs-9d4e7d1628d6aec795c6a0e82b3bac3bea4c4405.tar.gz | |
(Fbyte_code): Use CHECK_VECTOR.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 11 |
1 files changed, 3 insertions, 8 deletions
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; } |