pit: Backtraces

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");