diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-02-02 15:00:14 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-02-02 15:00:14 +0000 |
commit | 39752bec0aea1cddb787ad577dae78645c146442 (patch) | |
tree | 10d5a0216a847af7cee2ec4a65c2ae918c934190 /libguile/init.c | |
parent | 660f41fa24a1196e355447a677f5a345f8dca2a9 (diff) | |
download | guile-39752bec0aea1cddb787ad577dae78645c146442.tar.gz |
* backtrace.c (display_error_body, display_backtrace_body),
coop-threads.c (scheme_body_bootstrip, c_body_bootstrip),
gh_eval.c (eval_str_wrapper, eval_file_wrapper), init.c
(invoke_main_func), root.c (cwdr_body), throw.c (cwss_body,
scm_body_thunk, hbpca_body): Removed the second jmpbuf arg on body
functions.
Diffstat (limited to 'libguile/init.c')
-rw-r--r-- | libguile/init.c | 5 |
1 files changed, 2 insertions, 3 deletions
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; |