From 039dc30b045dc0ba0633aee0d71020daf8c50f48 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 11 Jan 1997 00:28:16 +0000 Subject: [PATCH] (read1): Fix error messages. --- src/lread.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/lread.c b/src/lread.c index 647735c855..7b73425f56 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1269,14 +1269,15 @@ read1 (readcharfun, pch, first_in_list) tmp = read1 (readcharfun, pch, first_in_list); if (size_in_chars != XSTRING (tmp)->size) Fsignal (Qinvalid_read_syntax, - Fcons (make_string ("#&", 2), Qnil)); + Fcons (make_string ("#&...", 2), Qnil)); val = Fmake_bool_vector (length, Qnil); bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data, size_in_chars); return val; } - Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&", 2), Qnil)); + Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&...", 2), + Qnil)); } if (c == '[') { -- 2.39.2