summaryrefslogtreecommitdiff
path: root/libguile/stacks.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r--libguile/stacks.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c
index fd19a492a..bbdde3026 100644
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -276,8 +276,7 @@ SCM_DEFINE (scm_make_stack, "make-stack", 1, 0, 1,
/* FIXME: is this even possible? */
if (scm_is_true (frame)
- && (SCM_PROGRAM_P (scm_frame_procedure (frame))
- || SCM_RTL_PROGRAM_P (scm_frame_procedure (frame)))
+ && SCM_RTL_PROGRAM_P (scm_frame_procedure (frame))
&& SCM_PROGRAM_IS_BOOT (scm_frame_procedure (frame)))
frame = scm_frame_previous (frame);