summaryrefslogtreecommitdiff
path: root/libguile/stacks.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r--libguile/stacks.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c
index 45566cafa..5c8d1a5d7 100644
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -151,7 +151,7 @@ stack_depth (scm_t_debug_frame *dframe, scm_t_ptrdiff offset, SCM vmframe,
&& !SCM_UNBNDP (info[1].a.proc))
++n;
}
- else if (SCM_APPLYFRAMEP (*dframe))
+ else
{
scm_t_debug_info *vect = RELOC_INFO (dframe->vect, offset);
if (SCM_PROGRAM_P (vect[0].a.proc))
@@ -177,8 +177,6 @@ stack_depth (scm_t_debug_frame *dframe, scm_t_ptrdiff offset, SCM vmframe,
else
++n; /* increment for non-program apply frame */
}
- else
- ++n;
}
if (dframe && SCM_VOIDFRAMEP (*dframe))
*id = RELOC_INFO(dframe->vect, offset)[0].id;