X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/88cff2ef1bd0d11987f034d2e7dec10c89f5719d..f4af36aca47f7d0653b997986e8be9894bbd87ff:/libguile/control.h?ds=sidebyside diff --git a/libguile/control.h b/libguile/control.h index db383cf63..4b76591aa 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 SCM scm_i_prompt_pop_abort_args_x (struct scm_vm *vp); + +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;