Heap frames have a "frame kind" bit

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

diff --git a/libguile/continuations.c b/libguile/continuations.c
index 7c40dbf..31e3644 100644 (file)
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -177,7 +177,7 @@ scm_i_continuation_to_frame (SCM continuation)
   if (scm_is_true (cont->vm_cont))
     {
       struct scm_vm_cont *data = SCM_VM_CONT_DATA (cont->vm_cont);
-      return scm_c_make_frame (cont->vm_cont,
+      return scm_c_make_frame (SCM_VM_FRAME_KIND_CONT, cont->vm_cont,
                                (data->fp + data->reloc) - data->stack_base,
                                (data->sp + data->reloc) - data->stack_base,
                                data->ra);