summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/backtrace.c4
-rw-r--r--libguile/coop-threads.c6
-rw-r--r--libguile/gh_eval.c4
-rw-r--r--libguile/init.c5
-rw-r--r--libguile/root.c2
5 files changed, 10 insertions, 11 deletions
diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index c216515e9..93557efaf 100644
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -186,7 +186,7 @@ struct display_error_args {
};
static SCM
-display_error_body (struct display_error_args *a, SCM jmpbuf)
+display_error_body (struct display_error_args *a)
{
SCM current_frame = SCM_BOOL_F;
SCM source = SCM_BOOL_F;
@@ -413,7 +413,7 @@ struct display_backtrace_args {
SCM_PROC(s_display_backtrace, "display-backtrace", 2, 2, 0, scm_display_backtrace);
static SCM
-display_backtrace_body (struct display_backtrace_args *a, SCM jmpbuf)
+display_backtrace_body (struct display_backtrace_args *a)
{
int n_frames, beg, end, n, i, j;
int nfield, indent_p, indentation;
diff --git a/libguile/coop-threads.c b/libguile/coop-threads.c
index 47104fcf6..af68b6831 100644
--- a/libguile/coop-threads.c
+++ b/libguile/coop-threads.c
@@ -225,7 +225,7 @@ typedef struct scheme_launch_data {
extern SCM scm_apply (SCM, SCM, SCM);
static SCM
-scheme_body_bootstrip (scheme_launch_data* data, SCM jmpbuf)
+scheme_body_bootstrip (scheme_launch_data* data)
{
/* First save the new root continuation */
data->rootcont = scm_root->rootcont;
@@ -346,11 +346,11 @@ typedef struct c_launch_data {
} c_launch_data;
static SCM
-c_body_bootstrip (c_launch_data* data, SCM jmpbuf)
+c_body_bootstrip (c_launch_data* data)
{
/* First save the new root continuation */
data->u.rootcont = scm_root->rootcont;
- return (data->body) (data->body_data, jmpbuf);
+ return (data->body) (data->body_data);
}
static SCM
diff --git a/libguile/gh_eval.c b/libguile/gh_eval.c
index d214d9faf..b42899073 100644
--- a/libguile/gh_eval.c
+++ b/libguile/gh_eval.c
@@ -63,7 +63,7 @@ gh_eval_file (char *fname)
}
static SCM
-eval_str_wrapper (void *data, SCM jmpbuf)
+eval_str_wrapper (void *data)
{
/* gh_eval_t real_eval_proc = (gh_eval_t) (* ((gh_eval_t *) data)); */
@@ -97,7 +97,7 @@ gh_eval_str_with_stack_saving_handler (char *scheme_code)
}
static SCM
-eval_file_wrapper (void *data, SCM jmpbuf)
+eval_file_wrapper (void *data)
{
/* gh_eval_t real_eval_proc = (gh_eval_t) (* ((gh_eval_t *) data)); */
diff --git a/libguile/init.c b/libguile/init.c
index cb2bd8cb2..9762198ba 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -294,7 +294,7 @@ struct main_func_closure
static void scm_boot_guile_1 SCM_P ((SCM_STACKITEM *base,
struct main_func_closure *closure));
-static SCM invoke_main_func SCM_P ((void *body_data, SCM jmpbuf));
+static SCM invoke_main_func SCM_P ((void *body_data));
/* Fire up the Guile Scheme interpreter.
@@ -501,9 +501,8 @@ scm_boot_guile_1 (base, closure)
static SCM
-invoke_main_func (body_data, jmpbuf)
+invoke_main_func (body_data)
void *body_data;
- SCM jmpbuf;
{
struct main_func_closure *closure = (struct main_func_closure *) body_data;
diff --git a/libguile/root.c b/libguile/root.c
index 5de8e1942..46c42897c 100644
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -220,7 +220,7 @@ struct cwdr_handler_data {
With a little thought, we could replace this with scm_body_thunk,
but I don't want to mess with that at the moment. */
static SCM
-cwdr_body (void *data, SCM jmpbuf)
+cwdr_body (void *data)
{
struct cwdr_body_data *c = (struct cwdr_body_data *) data;