diff options
Diffstat (limited to 'gdb/guile/scm-utils.c')
| -rw-r--r-- | gdb/guile/scm-utils.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gdb/guile/scm-utils.c b/gdb/guile/scm-utils.c index 023097f..59d8b52 100644 --- a/gdb/guile/scm-utils.c +++ b/gdb/guile/scm-utils.c @@ -27,14 +27,14 @@ /* Define VARIABLES in the gdb module. */ void -gdbscm_define_variables (const scheme_variable *variables, int public) +gdbscm_define_variables (const scheme_variable *variables, int is_public) { const scheme_variable *sv; for (sv = variables; sv->name != NULL; ++sv) { scm_c_define (sv->name, sv->value); - if (public) + if (is_public) scm_c_export (sv->name, NULL); } } @@ -42,7 +42,7 @@ gdbscm_define_variables (const scheme_variable *variables, int public) /* Define FUNCTIONS in the gdb module. */ void -gdbscm_define_functions (const scheme_function *functions, int public) +gdbscm_define_functions (const scheme_function *functions, int is_public) { const scheme_function *sf; @@ -53,7 +53,7 @@ gdbscm_define_functions (const scheme_function *functions, int public) scm_set_procedure_property_x (proc, gdbscm_documentation_symbol, gdbscm_scm_from_c_string (sf->doc_string)); - if (public) + if (is_public) scm_c_export (sf->name, NULL); } } @@ -62,14 +62,14 @@ gdbscm_define_functions (const scheme_function *functions, int public) void gdbscm_define_integer_constants (const scheme_integer_constant *constants, - int public) + int is_public) { const scheme_integer_constant *sc; for (sc = constants; sc->name != NULL; ++sc) { scm_c_define (sc->name, scm_from_int (sc->value)); - if (public) + if (is_public) scm_c_export (sc->name, NULL); } } |