mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

* gh.h (gh_enter, gh_new_procedure0_0, gh_new_procedure0_1,

Browse source 
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.)
This commit is contained in:
Jim Blandy 1998-10-24 20:54:21 +00:00
parent e40ffcb6bd
commit 47d0411b18
1 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

26
libguile/gh.h
View file

@ -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 */