shithub: femtolisp

Info  •  Files  •  Log  •  Branches

read_list: print _where_ it's not closed

--- a/read.c

+++ b/read.c

@@ -595,13 +595,16 @@

 {

 	value_t c, *pc;

 	uint32_t t;

+	uint64_t lineno0, colno0;

+	lineno0 = RS->lineno;

+	colno0 = RS->colno - 1;

 	PUSH(FL(Nil));

 	pc = &FL(stack)[FL(sp)-1];  // to keep track of current cons cell

 	t = peek(ctx);

 	while(t != closer){

 		if(ios_eof(RS))

-			parse_error("unexpected end of input");

+			parse_error("unexpected end of input: %"PRIu64":%"PRIu64" not closed", lineno0, colno0);

 		c = mk_cons(); car_(c) = cdr_(c) = FL(Nil);

 		if(iscons(*pc))

 			cdr_(*pc) = c;