/* This is the internal form of the parse state used in parse-partial-sexp. */
struct lisp_parse_state {
/* This is the internal form of the parse state used in parse-partial-sexp. */
struct lisp_parse_state {
c = BUF_FETCH_CHAR(buf, from);
syncode = SYNTAX_CODE_FROM_CACHE(mirrortab, c);
code = SYNTAX_FROM_CODE(syncode);
c = BUF_FETCH_CHAR(buf, from);
syncode = SYNTAX_CODE_FROM_CACHE(mirrortab, c);
code = SYNTAX_FROM_CODE(syncode);
- error("Unbalanced parentheses");
+ signal_type_error_2(Qscan_error, "Unbalanced parentheses",
+ make_int(last_good), make_int(from));