diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-10-24 20:54:21 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-10-24 20:54:21 +0000 |
commit | 47d0411b1873dc32343601b2fec3d54c61ec639f (patch) | |
tree | a39324ac6466948e011c66030a25b56650eb21fc /libguile/gh.h | |
parent | e40ffcb6bda47a508fe90822ef892ba0968f2315 (diff) | |
download | guile-47d0411b1873dc32343601b2fec3d54c61ec639f.tar.gz |
* gh.h (gh_enter, gh_new_procedure0_0, gh_new_procedure0_1,
gh_new_procedure0_2, gh_new_procedure1_0, gh_new_procedure1_1,
gh_new_procedure1_2, gh_new_procedure2_0, gh_new_procedure2_1,
gh_new_procedure2_2, gh_new_procedure3_0, gh_new_procedure4_0,
gh_new_procedure5_0): Specify argument types, to appease C++
compilers. (Thanks to Brad Bowman.)
Diffstat (limited to 'libguile/gh.h')
-rw-r--r-- | libguile/gh.h | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/libguile/gh.h b/libguile/gh.h index 4b9c5f19f..592a36868 100644 --- a/libguile/gh.h +++ b/libguile/gh.h @@ -60,7 +60,7 @@ extern "C" { #define EXTINL #endif /* __GNUC__ */ -void gh_enter(int argc, char *argv[], void (*c_main_prog)()); +void gh_enter(int argc, char *argv[], void (*c_main_prog)(int, char **)); void gh_repl(int argc, char *argv[]); SCM gh_catch(SCM tag, scm_catch_body_t body, void *body_data, scm_catch_handler_t handler, void *handler_data); @@ -82,18 +82,18 @@ SCM gh_eval_file_with_standard_handler(char *scheme_code); SCM gh_new_procedure(char *proc_name, SCM (*fn)(), int n_required_args, int n_optional_args, int varp); -SCM gh_new_procedure0_0(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure0_1(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure0_2(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure1_0(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure1_1(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure1_2(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure2_0(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure2_1(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure2_2(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure3_0(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure4_0(char *proc_name, SCM (*fn)()); -SCM gh_new_procedure5_0(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure0_0(char *proc_name, SCM (*fn)(void)); +SCM gh_new_procedure0_1(char *proc_name, SCM (*fn)(SCM)); +SCM gh_new_procedure0_2(char *proc_name, SCM (*fn)(SCM, SCM)); +SCM gh_new_procedure1_0(char *proc_name, SCM (*fn)(SCM)); +SCM gh_new_procedure1_1(char *proc_name, SCM (*fn)(SCM, SCM)); +SCM gh_new_procedure1_2(char *proc_name, SCM (*fn)(SCM, SCM, SCM)); +SCM gh_new_procedure2_0(char *proc_name, SCM (*fn)(SCM, SCM)); +SCM gh_new_procedure2_1(char *proc_name, SCM (*fn)(SCM, SCM, SCM)); +SCM gh_new_procedure2_2(char *proc_name, SCM (*fn)(SCM, SCM, SCM, SCM)); +SCM gh_new_procedure3_0(char *proc_name, SCM (*fn)(SCM, SCM, SCM)); +SCM gh_new_procedure4_0(char *proc_name, SCM (*fn)(SCM, SCM, SCM, SCM)); +SCM gh_new_procedure5_0(char *proc_name, SCM (*fn)(SCM, SCM, SCM, SCM, SCM)); /* C to Scheme conversion */ SCM gh_int2scmb(int x); /* this is being phased out */ |