summaryrefslogtreecommitdiff
path: root/libguile/programs.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-19 19:45:56 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-19 19:45:56 +0100
commit34cf09ccdf33fed42af9bda1f59252db9af9f7af (patch)
treeb89495a10811e5582ece5bdba78b9c8491017d5a /libguile/programs.c
parent2e12c1a2b7a5d066a4ef07b32c19cdf8d2f1738b (diff)
downloadguile-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.c11
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;