shithub: sl

Info  •  Files  •  Log  •  Branches

do_read_sexpr: move unexpected cases down

--- a/read.c

+++ b/read.c

@@ -591,14 +591,6 @@

 		PUSH(FL(Nil));

 		read_list(ctx, &FL(stack)[FL(sp)-1], label, TOK_CLOSEC);

 		return POP();

-	case TOK_CLOSE:

-		parse_error("unexpected ')'");

-	case TOK_CLOSEB:

-		parse_error("unexpected ']'");

-	case TOK_CLOSEC:

-		parse_error("unexpected '}'");

-	case TOK_DOT:

-		parse_error("unexpected '.'");

 	case TOK_COMMA:

 		head = &FL(comma); goto listwith;

 	case TOK_COMMAAT:

@@ -684,6 +676,14 @@

 		return *pv;

 	case TOK_DOUBLEQUOTE:

 		return read_string(ctx);

+	case TOK_CLOSE:

+		parse_error("unexpected ')'");

+	case TOK_CLOSEB:

+		parse_error("unexpected ']'");

+	case TOK_CLOSEC:

+		parse_error("unexpected '}'");

+	case TOK_DOT:

+		parse_error("unexpected '.'");

 	}

 	return FL(unspecified);

 }