summaryrefslogtreecommitdiff
path: root/libguile/gh.h
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1998-10-24 20:54:21 +0000
committerJim Blandy <jimb@red-bean.com>1998-10-24 20:54:21 +0000
commit47d0411b1873dc32343601b2fec3d54c61ec639f (patch)
treea39324ac6466948e011c66030a25b56650eb21fc /libguile/gh.h
parente40ffcb6bda47a508fe90822ef892ba0968f2315 (diff)
downloadguile-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.h26
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 */