Commit ec3bbd7d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Fix previous change.

parent 039dc30b
......@@ -1269,14 +1269,14 @@ 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 ("#&...", 5), 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),
Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&...", 5),
Qnil));
}
if (c == '[')
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment