diff options
Diffstat (limited to 'pit/src/runtime/macroexpand.c')
| -rw-r--r-- | pit/src/runtime/macroexpand.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pit/src/runtime/macroexpand.c b/pit/src/runtime/macroexpand.c index 6252ae1..7ff1a6a 100644 --- a/pit/src/runtime/macroexpand.c +++ b/pit/src/runtime/macroexpand.c @@ -14,7 +14,7 @@ pit_value pit_macroexpand(pit_runtime *rt, pit_value top) { if (pit_value_is_cons(rt, cur)) { pit_value fsym = pit_value_cons_car(rt, cur); bool is_symbol = pit_value_is_symbol(rt, fsym); - pit_annotated_ref *ann = pit_annotation_get(rt, pit_value_as_ref(rt, cur)); + pit_annotation *ann = pit_annotation_get(rt, pit_value_as_ref(rt, cur)); if (is_symbol && pit_symtab_is_symbol_macro(rt, fsym)) { pit_value f = pit_symtab_fget(rt, fsym); pit_value args = pit_value_cons_cdr(rt, cur); @@ -88,7 +88,7 @@ pit_value pit_macroexpand(pit_runtime *rt, pit_value top) { } app = pit_value_cons(rt, f, args); if (ent->in.application.annotation != NULL) { - pit_annotation_set(rt, pit_value_as_ref(rt, app), ent->in.application.annotation->annotation); + pit_annotation_set(rt, pit_value_as_ref(rt, app), *ent->in.application.annotation); } if (pit_vec_push(pit_value)(rt->result_stack, app) < 0) pit_error(rt, "macro expansion stack overflow"); |