diff options
author | Richard M. Stallman <[email protected]> | 1995-04-18 18:13:13 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1995-04-18 18:13:13 +0000 |
commit | 5bbdb09071ac5681f6ef97418d9d0c54032dfd66 (patch) | |
tree | 5d2ec0511e31a590043206cdc28b7af42239bdc9 /src/eval.c | |
parent | 2e922f0b7a6e26c380269bc8a44d0eff913b5439 (diff) |
(Ffetch_bytecode): Check the type of the object being read from the file.
Diffstat (limited to 'src/eval.c')
-rw-r--r-- | src/eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index 29136940c4..6a6bde4f32 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2269,6 +2269,8 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode, && CONSP (XVECTOR (object)->contents[COMPILED_BYTECODE])) { tem = read_doc_string (XVECTOR (object)->contents[COMPILED_BYTECODE]); + if (!CONSP (tem)) + error ("invalid byte code"); XVECTOR (object)->contents[COMPILED_BYTECODE] = XCONS (tem)->car; XVECTOR (object)->contents[COMPILED_CONSTANTS] = XCONS (tem)->cdr; } |