reshape for h_action and h_choice
This commit is contained in:
parent
29cee318f9
commit
482851b3e2
2 changed files with 2 additions and 0 deletions
|
|
@ -31,6 +31,7 @@ static HCFChoice* desugar_action(HAllocator *mm__, void *env) {
|
||||||
ret->seq[0] = seq;
|
ret->seq[0] = seq;
|
||||||
ret->seq[1] = NULL;
|
ret->seq[1] = NULL;
|
||||||
ret->action = a->action;
|
ret->action = a->action;
|
||||||
|
ret->reshape = h_act_first;
|
||||||
return ret;
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -51,6 +51,7 @@ static HCFChoice* desugar_choice(HAllocator *mm__, void *env) {
|
||||||
ret->seq[i]->items[1] = NULL;
|
ret->seq[i]->items[1] = NULL;
|
||||||
}
|
}
|
||||||
ret->seq[s->len] = NULL;
|
ret->seq[s->len] = NULL;
|
||||||
|
ret->reshape = h_act_first;
|
||||||
return ret;
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue