reshape for h_action and h_choice

This commit is contained in:
Sven M. Hallberg 2013-05-20 15:24:19 +02:00
parent 29cee318f9
commit 482851b3e2
2 changed files with 2 additions and 0 deletions

View file

@ -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;
} }

View file

@ -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;
} }