abort always dispatches to VM bytecode, to detect same-invocation aborts

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

diff --git a/libguile/vm.h b/libguile/vm.h
index 17445ea..6d76f12 100644 (file)
--- a/libguile/vm.h
+++ b/libguile/vm.h
@@ -51,6 +51,7 @@ struct scm_vm {
   SCM hooks[SCM_VM_NUM_HOOKS]; /* hooks */
   SCM options;                 /* options */
   int trace_level;              /* traces enabled if trace_level > 0 */
+  scm_t_int64 cookie;           /* used to detect unrewindable continuations */
 };
 
 SCM_API SCM scm_the_vm_fluid;