Bruce/tomo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Activity

Prepend do_begin statements to do statements, don't put them in a

Browse Source 
separate block
This commit is contained in:
Bruce Hill 2025-03-30 23:48:02 -04:00
parent 982d67437f
commit 0f11502a7d
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/parse.c
View File

@ -1126,14 +1126,18 @@ PARSER(parse_do) {
pos = tmp;
ast_t *body = expect(ctx, start, &pos, parse_block, "I expected a body for this 'do'");
if (begin && end) {
return NewAST(ctx->file, start, pos, Block,
.statements=new(ast_list_t, .ast=begin,
.next=new(ast_list_t, .ast=WrapAST(end, Defer, .body=end),
.next=new(ast_list_t, .ast=body))));
ast_list_t *statements = Match(begin, Block)->statements;
REVERSE_LIST(statements);
statements = new(ast_list_t, .ast=WrapAST(end, Defer, .body=end), .next=statements);
statements = new(ast_list_t, .ast=body, .next=statements);
REVERSE_LIST(statements);
return NewAST(ctx->file, start, pos, Block, .statements=statements);
} else if (begin) {
return NewAST(ctx->file, start, pos, Block,
.statements=new(ast_list_t, .ast=begin,
.next=new(ast_list_t, .ast=body)));
ast_list_t *statements = Match(begin, Block)->statements;
REVERSE_LIST(statements);
statements = new(ast_list_t, .ast=body, .next=statements);
REVERSE_LIST(statements);
return NewAST(ctx->file, start, pos, Block, .statements=statements);
} else if (end) {
return NewAST(ctx->file, start, pos, Block,
.statements=new(ast_list_t, .ast=WrapAST(end, Defer, .body=end),