diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:45:56 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:45:56 +0100 |
commit | 34cf09ccdf33fed42af9bda1f59252db9af9f7af (patch) | |
tree | b89495a10811e5582ece5bdba78b9c8491017d5a /libguile/programs.c | |
parent | 2e12c1a2b7a5d066a4ef07b32c19cdf8d2f1738b (diff) | |
download | guile-34cf09ccdf33fed42af9bda1f59252db9af9f7af.tar.gz |
Rename internals of (system vm program) program-minimum-arity
* module/system/vm/debug.scm (find-program-minimum-arity): Rename from
program-minimum-arity.
* module/system/vm/program.scm (program-minimum-arity): Rename from
rtl-program-minimum-arity.
* libguile/programs.c (scm_i_program_arity): Adapt.
Diffstat (limited to 'libguile/programs.c')
-rw-r--r-- | libguile/programs.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/libguile/programs.c b/libguile/programs.c index 7a0127670..abc50a05c 100644 --- a/libguile/programs.c +++ b/libguile/programs.c @@ -225,7 +225,7 @@ SCM_DEFINE (scm_program_free_variable_set_x, "program-free-variable-set!", 3, 0, int scm_i_program_arity (SCM program, int *req, int *opt, int *rest) { - static SCM rtl_program_minimum_arity = SCM_BOOL_F; + static SCM program_minimum_arity = SCM_BOOL_F; SCM l; if (SCM_PRIMITIVE_P (program)) @@ -242,12 +242,11 @@ scm_i_program_arity (SCM program, int *req, int *opt, int *rest) return 1; } - if (scm_is_false (rtl_program_minimum_arity) && scm_module_system_booted_p) - rtl_program_minimum_arity = - scm_c_private_variable ("system vm program", - "rtl-program-minimum-arity"); + if (scm_is_false (program_minimum_arity) && scm_module_system_booted_p) + program_minimum_arity = + scm_c_private_variable ("system vm program", "program-minimum-arity"); - l = scm_call_1 (scm_variable_ref (rtl_program_minimum_arity), program); + l = scm_call_1 (scm_variable_ref (program_minimum_arity), program); if (scm_is_false (l)) return 0; |