From a5e153d8558a43fbdc78f5b9fdaff426feea4654 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 21 Jul 2026 20:56:52 -0400 Subject: pit: Backtraces --- pit/src/runtime/eval.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'pit/src/runtime/eval.c') 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"); -- cgit v1.3.1