summaryrefslogtreecommitdiff
path: root/libguile/stacks.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-05-11 14:31:17 +0200
committerAndy Wingo <wingo@pobox.com>2012-05-11 14:31:17 +0200
commitee6207d6f5c8675dc8dee36dbdb815dbc5b71b4a (patch)
tree7b4585b495647ae48a832e97cfeb30bd0b70e65c /libguile/stacks.c
parent968a9add65c5e3a33ab9f5b7697051c5b9282060 (diff)
parentda874e5415f2d9438e66b9989086465b6cbf578c (diff)
downloadguile-ee6207d6f5c8675dc8dee36dbdb815dbc5b71b4a.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r--libguile/stacks.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c
index 3f3f132ce..c3ea624ce 100644
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -276,6 +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_PROGRAM_IS_BOOT (scm_frame_procedure (frame)))
frame = scm_frame_previous (frame);