Mercurial > emacs
comparison src/lread.c @ 16855:d10bb3a79eff
(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. */ |