Heap frame "stack holders" are raw scm_vm / scm_vm_cont pointers

[bpt/guile.git] / libguile / vm.c

diff --git a/libguile/vm.c b/libguile/vm.c
index afb5c42..c4e4895 100644 (file)
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -202,7 +202,7 @@ vm_dispatch_hook (SCM vm, int hook_num, SCM *argv, int n)
      while the stack frame represented by the frame object is visible, so it
      seems reasonable to limit the lifetime of frame objects.  */
 
-  c_frame.stack_holder = vm;
+  c_frame.stack_holder = vp;
   c_frame.fp_offset = vp->fp - vp->stack_base;
   c_frame.sp_offset = vp->sp - vp->stack_base;
   c_frame.ip = vp->ip;