From ad0153e46f323b5e18e7c41690a7a554102ff5cd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 Jul 1998 20:31:37 +0000 Subject: [PATCH] (read_list): Pass new arg to get_doc_string. --- src/lread.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/lread.c b/src/lread.c index aedeb40c7ef..fa0219deb49 100644 --- a/src/lread.c +++ b/src/lread.c @@ -302,6 +302,10 @@ readchar (readcharfun) return c; } + + if (EQ (readcharfun, Qlambda)) + return read_bytecode_char (0); + if (EQ (readcharfun, Qget_file_char)) { c = getc (instream); @@ -391,6 +395,8 @@ unreadchar (readcharfun, c) read_from_string_index_byte = string_char_to_byte (readcharfun, read_from_string_index); } + else if (EQ (readcharfun, Qlambda)) + read_bytecode_char (1); else if (EQ (readcharfun, Qget_file_char)) ungetc (c, instream); else -- 2.39.5