shithub: sl

Info  •  Files  •  Log  •  Branches

constructor notation: allow [] and {} in addition to ()

--- a/src/read.c

+++ b/src/read.c

@@ -710,12 +710,12 @@

 		// constructor notation

 		c = nextchar(ctx);

 		ctx->loc = RS->loc;

-		if(c != '('){

+		if(c != '(' && c != '[' && c != '{'){

 			take(ctx);

 			parse_error(&ctx->loc, "expected argument list for %s", sym_name(ctx->tokval));

 		}

 		PUSH(sl_nil);

-		read_list(ctx, UNBOUND, TOK_CLOSE);

+		read_list(ctx, UNBOUND, c == '(' ? TOK_CLOSE : (c == '[' ? TOK_CLOSEB : TOK_CLOSEC));

 		if(sym == sl_vu8sym){

 			sym = sl_arrsym;

 			sl.sp[-1] = mk_cons(sl_u8sym, sl.sp[-1]);