diff options
-rw-r--r-- | libguile/backtrace.c | 4 | ||||
-rw-r--r-- | libguile/coop-threads.c | 6 | ||||
-rw-r--r-- | libguile/gh_eval.c | 4 | ||||
-rw-r--r-- | libguile/init.c | 5 | ||||
-rw-r--r-- | libguile/root.c | 2 |
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; |