summaryrefslogtreecommitdiff
path: root/libguile/control.h
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-21 17:36:22 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-21 17:36:22 +0100
commitb44f5451f89f33d85e1601de72317460614c4193 (patch)
tree0a3c41157379207dffbe42f9a86ad0239092b1bb /libguile/control.h
parent44ece399074281dec3bd69ab76a20dec2b0d4bfc (diff)
downloadguile-b44f5451f89f33d85e1601de72317460614c4193.tar.gz
Remove last use of SCM vm in VM
* libguile/control.h: * libguile/control.c (reify_partial_continuation, scm_c_abort): Take struct scm_vm *vp as an arg. * libguile/dynstack.h: Remove control.h include. * libguile/vm.c (vm_abort): Take struct scm_vm *vp as an arg. * libguile/vm-engine.c (abort): Adapt to vm_abort change.
Diffstat (limited to 'libguile/control.h')
-rw-r--r--libguile/control.h4
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/control.h b/libguile/control.h
index db383cf63..b9a7e2336 100644
--- a/libguile/control.h
+++ b/libguile/control.h
@@ -19,10 +19,12 @@
#ifndef SCM_CONTROL_H
#define SCM_CONTROL_H
+#include "libguile/vm.h"
+
SCM_INTERNAL SCM scm_i_prompt_pop_abort_args_x (SCM vm);
-SCM_INTERNAL void scm_c_abort (SCM vm, SCM tag, size_t n, SCM *argv,
+SCM_INTERNAL void scm_c_abort (struct scm_vm *vp, SCM tag, size_t n, SCM *argv,
scm_i_jmp_buf *registers) SCM_NORETURN;
SCM_INTERNAL SCM scm_abort_to_prompt_star (SCM tag, SCM args) SCM_NORETURN;