# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 798228793 0
# Node ID af7833ecb551c018e5b4ab2767b4d91c4ae1b26f
# Parent  5865f4bc9521f4e37c28a62113d8232ea09ca109
(Ffetch_bytecode): Check the type of the object being read from the file.

diff -r 5865f4bc9521 -r af7833ecb551 src/eval.c
--- a/src/eval.c	Tue Apr 18 07:21:52 1995 +0000
+++ b/src/eval.c	Tue Apr 18 18:13:13 1995 +0000
@@ -2269,6 +2269,8 @@
       && 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;
     }