summaryrefslogtreecommitdiffstats
path: root/unwind.h
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-01-21 17:26:53 -0800
committerKaz Kylheku <kaz@kylheku.com>2012-01-21 17:26:53 -0800
commite2118a041353a9d85e1c56051335f8ac0df101fd (patch)
treef4501d9a9f82eba38a75e4f9f666e46a659c61d0 /unwind.h
parent0cbd46033d0ef707a856c78e735dbf41a6fd7faa (diff)
downloadtxr-e2118a041353a9d85e1c56051335f8ac0df101fd.tar.gz
txr-e2118a041353a9d85e1c56051335f8ac0df101fd.tar.bz2
txr-e2118a041353a9d85e1c56051335f8ac0df101fd.zip
* debug.c (help): Added missing help for w command.
(debug): In backtrace, show the renaming pairs for unbound variables (up_p_a_pairs) if they are present. * debug.h (debug_begin): Renamed to debug_frame. * eval.c (eval): Wrap debug_begin/debug_end around function dispatch, so TXR Lisp functions are included in backtraces. * match.c (h_fun): Follow rename of debug_begin to debug_frame. Pass in evaluated args, not the original ones. (v_fun): Likewise. * unwind.c (uw_push_debug): bindings argument renamed to env. Bugfix: args argument was being assigned to ub_p_a_pairs. * unwind.h (struct uw_debug): Member bindings renamed to env. (uw_push_debug): Declaration updated.
Diffstat (limited to 'unwind.h')
-rw-r--r--unwind.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/unwind.h b/unwind.h
index 03e43982..f9c69ad0 100644
--- a/unwind.h
+++ b/unwind.h
@@ -71,7 +71,7 @@ struct uw_debug {
val func;
val args;
val ub_p_a_pairs;
- val bindings;
+ val env;
val data;
val line;
val chr;
@@ -100,7 +100,7 @@ val uw_register_subtype(val sub, val super);
val uw_exception_subtype_p(val sub, val sup);
void uw_continue(uw_frame_t *curr, uw_frame_t *target);
void uw_push_debug(uw_frame_t *, val func, val args,
- val ub_p_a_pairs, val bindings, val data,
+ val ub_p_a_pairs, val env, val data,
val line, val chr);
void uw_pop_frame(uw_frame_t *);
uw_frame_t *uw_current_frame(void);