HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Reify bytevector? in the correct module
[bpt/guile.git]
/
libguile
/
control.h
diff --git
a/libguile/control.h
b/libguile/control.h
index
4709194
..
4b76591
100644
(file)
--- 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
*
* 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
#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_i_jmp_buf *registers) SCM_NORETURN;
-SCM_INTERNAL SCM scm_a
t_abort
(SCM tag, SCM args) SCM_NORETURN;
+SCM_INTERNAL SCM scm_a
bort_to_prompt_star
(SCM tag, SCM args) SCM_NORETURN;
SCM_INTERNAL void scm_init_control (void);
SCM_INTERNAL void scm_init_control (void);