diff options
Diffstat (limited to 'pit/src/runtime/eval.c')
| -rw-r--r-- | pit/src/runtime/eval.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pit/src/runtime/eval.c b/pit/src/runtime/eval.c index a2b9e79..5966fdb 100644 --- a/pit/src/runtime/eval.c +++ b/pit/src/runtime/eval.c @@ -128,9 +128,10 @@ bool pit_vm_run_one(pit_runtime *rt) { // fprintf(stderr, "frame: "); pit_dump_to_file(rt, stderr, e->code, false); fprintf(stderr, "\n"); // } pit_value ins = pit_value_cons_car(rt, ent->code); - // fprintf(stderr, "ins: "); pit_dump_to_file(rt, stderr, ins, false); fprintf(stderr, "\n"); + fprintf(stderr, "ins: "); pit_dump_to_file(rt, stderr, ins, false); fprintf(stderr, "\n"); + fprintf(stderr, "code: "); pit_dump_to_file(rt, stderr, ent->code, false); fprintf(stderr, "\n"); // fprintf(stderr, "foo: "); pit_dump_to_file(rt, stderr, pit_symtab_get_function_cell(rt, pit_symtab_intern_cstr(rt, "foo")), false); fprintf(stderr, "\n"); - if (ins == PIT_NIL) { pit_error(rt, "malformed vm instruction"); return false; } + if (ins == PIT_NIL) { pit_error(rt, "malformed vm instruction: %v %v", ins); return false; } ent->code = pit_value_cons_cdr(rt, ent->code); pit_value op = pit_value_cons_car(rt, ins); if (pit_symtab_symbol_name_match_cstr(rt, op, "literal")) { |