Mercurial > emacs

comparison src/lread.c @ 16855:d10bb3a79eff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read1): Fix error messages.
author Richard M. Stallman <rms@gnu.org>
date Sat, 11 Jan 1997 00:28:16 +0000
parents 8e154ff6d4bf
children f838ff9a4d39
comparison
equal deleted inserted replaced
16854:b9074a68d6be 16855:d10bb3a79eff
1267 1267
1268 UNREAD (c); 1268 UNREAD (c);
1269 tmp = read1 (readcharfun, pch, first_in_list); 1269 tmp = read1 (readcharfun, pch, first_in_list);
1270 if (size_in_chars != XSTRING (tmp)->size) 1270 if (size_in_chars != XSTRING (tmp)->size)
1271 Fsignal (Qinvalid_read_syntax, 1271 Fsignal (Qinvalid_read_syntax,
1272 Fcons (make_string ("#&", 2), Qnil)); 1272 Fcons (make_string ("#&...", 2), Qnil));
1273 1273
1274 val = Fmake_bool_vector (length, Qnil); 1274 val = Fmake_bool_vector (length, Qnil);
1275 bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data, 1275 bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data,
1276 size_in_chars); 1276 size_in_chars);
1277 return val; 1277 return val;
1278 } 1278 }
1279 Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&", 2), Qnil)); 1279 Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&...", 2),
1280 Qnil));
1280 } 1281 }
1281 if (c == '[') 1282 if (c == '[')
1282 { 1283 {
1283 /* Accept compiled functions at read-time so that we don't have to 1284 /* Accept compiled functions at read-time so that we don't have to
1284 build them using function calls. */ 1285 build them using function calls. */