summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-04-16 19:18:29 +0200
committerAndy Wingo <wingo@pobox.com>2014-04-16 19:18:29 +0200
commita2ebdba7acefdc62ae8be378415f70a0aed68b2e (patch)
treeb8a6afb9be2f15725d9552778b5e9a5ad230738f
parentdeb2df53233e44a097741a824330a8e5a82d8053 (diff)
downloadguile-a2ebdba7acefdc62ae8be378415f70a0aed68b2e.tar.gz
Fix rewinding continuations when outermost frame has zero locals
* libguile/vm.c (vm_reinstate_partial_continuation_inner): Fix boundary condition when the outermost frame has zero locals.
-rw-r--r--libguile/vm.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm.c b/libguile/vm.c
index 6946afd98..86a3dfc60 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -397,7 +397,7 @@ vm_reinstate_partial_continuation_inner (void *data_ptr)
{
SCM *fp;
for (fp = vp->fp;
- SCM_FRAME_LOWER_ADDRESS (fp) > base;
+ SCM_FRAME_LOWER_ADDRESS (fp) >= base;
fp = SCM_FRAME_DYNAMIC_LINK (fp))
SCM_FRAME_SET_DYNAMIC_LINK (fp, SCM_FRAME_DYNAMIC_LINK (fp) + reloc);
}