diff options
author | Richard M. Stallman <[email protected]> | 1994-12-21 18:15:35 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-12-21 18:15:35 +0000 |
commit | ca248607edd25a3d4385da7b084a15111b68466c (patch) | |
tree | 6ab92b050ed129c3a85eff9fdd0461b708425172 /src | |
parent | 20ea2964cdf89eec255fb7d66064a9f1ab9e1575 (diff) |
(Fdefvar): Fix minor error in previous change.
(funcall_lambda): Fetch bytecode and constants vector from file if nec.
Diffstat (limited to 'src')
-rw-r--r-- | src/eval.c | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/src/eval.c b/src/eval.c index f5dd69ff05..c65744b964 100644 --- a/src/eval.c +++ b/src/eval.c @@ -587,6 +587,7 @@ If INITVALUE is missing, SYMBOL's value is not set.") tail = Fcdr (Fcdr (args)); if (!NILP (Fcar (tail))) { + tem = Fcar (tail); if (!NILP (Vpurify_flag)) tem = Fpurecopy (tem); Fput (sym, Qvariable_documentation, tem); @@ -2233,9 +2234,19 @@ funcall_lambda (fun, nargs, arg_vector) if (CONSP (fun)) val = Fprogn (Fcdr (Fcdr (fun))); else - val = Fbyte_code (XVECTOR (fun)->contents[COMPILED_BYTECODE], - XVECTOR (fun)->contents[COMPILED_CONSTANTS], - XVECTOR (fun)->contents[COMPILED_STACK_DEPTH]); + { + /* If we have not actually read the bytecode string + and constants vector yet, fetch them from the file. */ + if (CONSP (XVECTOR (fun)->contents[COMPILED_BYTECODE])) + { + tem = read_doc_string (XVECTOR (fun)->contents[COMPILED_BYTECODE]); + XVECTOR (fun)->contents[COMPILED_BYTECODE] = XCONS (tem)->car; + XVECTOR (fun)->contents[COMPILED_CONSTANTS] = XCONS (tem)->cdr; + } + val = Fbyte_code (XVECTOR (fun)->contents[COMPILED_BYTECODE], + XVECTOR (fun)->contents[COMPILED_CONSTANTS], + XVECTOR (fun)->contents[COMPILED_STACK_DEPTH]); + } return unbind_to (count, val); } |