diff options
| author | Stefan Monnier | 2010-06-14 22:51:25 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2010-06-14 22:51:25 -0400 |
| commit | 3c3ddb9833996729545bb4909bea359e5dbaa02e (patch) | |
| tree | e128f878a1ef7b7bd3217ff2c0fb664feb6dffbb /src/bytecode.c | |
| parent | f43cb6490878cb8f1dcb7e45044bc635f54d5951 (diff) | |
| download | emacs-3c3ddb9833996729545bb4909bea359e5dbaa02e.tar.gz emacs-3c3ddb9833996729545bb4909bea359e5dbaa02e.zip | |
* lisp/emacs-lisp/bytecomp.el (byte-compile-initial-macro-environment):
Don't macroexpand before evaluating in eval-and-compile, in case
`body's macro expansion uses macros and functions defined in itself.
* src/bytecode.c (exec_byte_code):
* src/eval.c (Ffunctionp): Fix up int/Lisp_Object confusions.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index fec855c0b83..192d397c45f 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -1742,7 +1742,7 @@ exec_byte_code (bytestr, vector, maxdepth, args_template, nargs, args) | |||
| 1742 | if (! VECTORP (vec)) | 1742 | if (! VECTORP (vec)) |
| 1743 | wrong_type_argument (Qvectorp, vec); | 1743 | wrong_type_argument (Qvectorp, vec); |
| 1744 | else if (index < 0 || index >= XVECTOR (vec)->size) | 1744 | else if (index < 0 || index >= XVECTOR (vec)->size) |
| 1745 | args_out_of_range (vec, index); | 1745 | args_out_of_range (vec, make_number (index)); |
| 1746 | 1746 | ||
| 1747 | if (op == Bvec_ref) | 1747 | if (op == Bvec_ref) |
| 1748 | PUSH (XVECTOR (vec)->contents[index]); | 1748 | PUSH (XVECTOR (vec)->contents[index]); |