diff options
Diffstat (limited to 'pit/src/runtime/eval.c')
| -rw-r--r-- | pit/src/runtime/eval.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/pit/src/runtime/eval.c b/pit/src/runtime/eval.c index f923760..44c9a57 100644 --- a/pit/src/runtime/eval.c +++ b/pit/src/runtime/eval.c @@ -82,9 +82,12 @@ pit_value pit_eval(pit_runtime *rt, pit_value top) { args = pit_value_cons(rt, a, args); } if (ent->in.application.annotation != NULL) { + pit_backtrace_entry be; + be.val = f; + be.ann = *ent->in.application.annotation; rt->source_line = ent->in.application.annotation->line; rt->source_column = ent->in.application.annotation->column; - // pit_vec_push(pit_annotated_ref)(rt->backtrace, *ent->in.application.annotation); + pit_vec_push(pit_backtrace_entry)(rt->backtrace, be); } if (pit_vec_push(pit_value)(rt->result_stack, pit_value_apply(rt, f, args)) < 0) pit_error(rt, "evaluation result stack underflow"); |