mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Rename internals of (system vm program) program-minimum-arity

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2013-11-19 19:45:56 +01:00
parent 2e12c1a2b7
commit 34cf09ccdf
3 changed files with 10 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/programs.c
View file

@ -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;