Added generic form of desugaring functions

This commit is contained in:
Dan Hirsch 2013-03-16 14:30:15 -07:00
parent 5df9db015c
commit ffd050e603
3 changed files with 4 additions and 1 deletions

View file

@ -47,7 +47,7 @@ static HCFChoice* desugar_sequence(HAllocator *mm__, void *env) {
HCFSequence *seq = h_new(HCFSequence, 1);
seq->items = h_new(HCFChoice*, s->len+1);
for (size_t i=0; i<s->len; ++i) {
seq->items[i] = s->p_array[i]->vtable->desugar(mm__, s->p_array[i]->env);
seq->items[i] = h_desugar(s->p_array[i]);
}
seq->items[s->len] = NULL;
HCFChoice *ret = h_new(HCFChoice, 1);