Mercurial > emacs

comparison src/eval.c @ 11481:af7833ecb551

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ffetch_bytecode): Check the type of the object being read from the file.
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 Apr 1995 18:13:13 +0000
parents 1e2290c04cce
children 73ac42b9be24
comparison
equal deleted inserted replaced
11480:5865f4bc9521 11481:af7833ecb551
2267 2267
2268 if (COMPILEDP (object) 2268 if (COMPILEDP (object)
2269 && CONSP (XVECTOR (object)->contents[COMPILED_BYTECODE])) 2269 && CONSP (XVECTOR (object)->contents[COMPILED_BYTECODE]))
2270 { 2270 {
2271 tem = read_doc_string (XVECTOR (object)->contents[COMPILED_BYTECODE]); 2271 tem = read_doc_string (XVECTOR (object)->contents[COMPILED_BYTECODE]);
2272 if (!CONSP (tem))
2273 error ("invalid byte code");
2272 XVECTOR (object)->contents[COMPILED_BYTECODE] = XCONS (tem)->car; 2274 XVECTOR (object)->contents[COMPILED_BYTECODE] = XCONS (tem)->car;
2273 XVECTOR (object)->contents[COMPILED_CONSTANTS] = XCONS (tem)->cdr; 2275 XVECTOR (object)->contents[COMPILED_CONSTANTS] = XCONS (tem)->cdr;
2274 } 2276 }
2275 return object; 2277 return object;
2276 } 2278 }