summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index a150eaa6..5c739989 100644
--- a/eval.c
+++ b/eval.c
@@ -1609,13 +1609,17 @@ static val do_eval(val form, val env, val ctx,
val (*lookup)(val env, val sym))
{
val self = lit("eval");
+#if CONFIG_DEBUG_SUPPORT
uw_frame_t *ev = 0;
+#endif
val ret = nil;
+#if CONFIG_DEBUG_SUPPORT
if (dbg_backtrace) {
ev = coerce(uw_frame_t *, alloca(sizeof *ev));
uw_push_eval(ev, form, env);
}
+#endif
sig_check_fast();
@@ -1669,8 +1673,10 @@ static val do_eval(val form, val env, val ctx,
ret = form;
}
+#if CONFIG_DEBUG_SUPPORT
if (ev != 0)
uw_pop_frame(ev);
+#endif
return ret;
}