# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 852942496 0
# Node ID d10bb3a79eff8262fefa3f07b047982dbe5003e3
# Parent  b9074a68d6bec5e4420f4b145aa3c96da74e3d54
(read1): Fix error messages.

diff -r b9074a68d6be -r d10bb3a79eff src/lread.c
--- a/src/lread.c	Fri Jan 10 09:15:06 1997 +0000
+++ b/src/lread.c	Sat Jan 11 00:28:16 1997 +0000
@@ -1269,14 +1269,15 @@
 	      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 == '[')
 	{