diff options
author | Andy Wingo <wingo@pobox.com> | 2014-04-16 19:18:29 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-04-16 19:18:29 +0200 |
commit | a2ebdba7acefdc62ae8be378415f70a0aed68b2e (patch) | |
tree | b8a6afb9be2f15725d9552778b5e9a5ad230738f | |
parent | deb2df53233e44a097741a824330a8e5a82d8053 (diff) | |
download | guile-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.c | 2 |
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); } |