X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/b4fa6cc90961c87b28e26b469863f19a1be26ce2..e87f059319e40b582d5ee8fd815876550f1148b9:/libguile/control.h

diff --git a/libguile/control.h b/libguile/control.h
index 470919472..4b76591aa 100644
--- a/libguile/control.h
+++ b/libguile/control.h
@@ -1,4 +1,4 @@
-/* Copyright (C) 2010, 2011, 2012  Free Software Foundation, Inc.
+/* Copyright (C) 2010, 2011, 2012, 2013  Free Software Foundation, Inc.
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public License
@@ -19,12 +19,14 @@
 #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_at_abort (SCM tag, SCM args) SCM_NORETURN;
+SCM_INTERNAL SCM scm_abort_to_prompt_star (SCM tag, SCM args) SCM_NORETURN;
 
 
 SCM_INTERNAL void scm_init_control (void);