diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2009-09-16 23:59:15 +0100 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2009-09-17 00:19:47 +0100 |
commit | a29c00447ba91458e35f81c7715c333ff1641018 (patch) | |
tree | a51dfd6473f9679969d21dea7683a15c206b8703 /libguile/stacks.c | |
parent | eb350124a85dd4daf39bacbdc50452ef87a33a43 (diff) | |
download | guile-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.c | 4 |
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; |