From 9780c715d54921e200bf046195958ebe4d38be51 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 17 Aug 1994 20:06:55 +0000 Subject: (store_function_docstring): Do nothing for bytecode object which has no slot for doc string. --- src/doc.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/doc.c b/src/doc.c index 81c22065936..ae6f77ba7e7 100644 --- a/src/doc.c +++ b/src/doc.c @@ -245,10 +245,8 @@ store_function_docstring (fun, offset) { /* This bytecode object must have a slot for the docstring, since we've found a docstring for it. */ - if (XVECTOR (fun)->size <= COMPILED_DOC_STRING) - abort (); - - XFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING]) = offset; + if (XVECTOR (fun)->size > COMPILED_DOC_STRING) + XFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING]) = offset; } } -- cgit v1.2.1