summaryrefslogtreecommitdiff
path: root/libguile/stacks.c
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2009-09-16 23:59:15 +0100
committerNeil Jerram <neil@ossau.uklinux.net>2009-09-17 00:19:47 +0100
commita29c00447ba91458e35f81c7715c333ff1641018 (patch)
treea51dfd6473f9679969d21dea7683a15c206b8703 /libguile/stacks.c
parenteb350124a85dd4daf39bacbdc50452ef87a33a43 (diff)
downloadguile-a29c00447ba91458e35f81c7715c333ff1641018.tar.gz
Remove unhittable else branch for nonexistent type of debug frame
* libguile/stacks.c (stack_depth): Remove unhittable else branch apparently catering to a kind of frame that isn't an eval, apply or void frame - in fact there are no other kinds of frames.
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;