summaryrefslogtreecommitdiff
path: root/libguile/programs.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/programs.c')
-rw-r--r--libguile/programs.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/libguile/programs.c b/libguile/programs.c
index 9e74f98e3..5c43ac525 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -36,7 +36,7 @@ scm_t_bits scm_tc16_program;
static SCM write_program = SCM_BOOL_F;
SCM_DEFINE (scm_make_program, "make-program", 1, 2, 0,
- (SCM objcode, SCM objtable, SCM free_vars),
+ (SCM objcode, SCM objtable, SCM free_variables),
"")
#define FUNC_NAME s_scm_make_program
{
@@ -45,12 +45,12 @@ SCM_DEFINE (scm_make_program, "make-program", 1, 2, 0,
objtable = SCM_BOOL_F;
else if (scm_is_true (objtable))
SCM_VALIDATE_VECTOR (2, objtable);
- if (SCM_UNLIKELY (SCM_UNBNDP (free_vars)))
- free_vars = SCM_BOOL_F;
- else if (free_vars != SCM_BOOL_F)
- SCM_VALIDATE_VECTOR (3, free_vars);
+ if (SCM_UNLIKELY (SCM_UNBNDP (free_variables)))
+ free_variables = SCM_BOOL_F;
+ else if (free_variables != SCM_BOOL_F)
+ SCM_VALIDATE_VECTOR (3, free_variables);
- SCM_RETURN_NEWSMOB3 (scm_tc16_program, objcode, objtable, free_vars);
+ SCM_RETURN_NEWSMOB3 (scm_tc16_program, objcode, objtable, free_variables);
}
#undef FUNC_NAME
@@ -59,8 +59,8 @@ program_mark (SCM obj)
{
if (scm_is_true (SCM_PROGRAM_OBJTABLE (obj)))
scm_gc_mark (SCM_PROGRAM_OBJTABLE (obj));
- if (scm_is_true (SCM_PROGRAM_FREE_VARS (obj)))
- scm_gc_mark (SCM_PROGRAM_FREE_VARS (obj));
+ if (scm_is_true (SCM_PROGRAM_FREE_VARIABLES (obj)))
+ scm_gc_mark (SCM_PROGRAM_FREE_VARIABLES (obj));
return SCM_PROGRAM_OBJCODE (obj);
}
@@ -293,13 +293,13 @@ scm_c_program_source (SCM program, size_t ip)
return source; /* (addr . (filename . (line . column))) */
}
-SCM_DEFINE (scm_program_free_vars, "program-free-vars", 1, 0, 0,
+SCM_DEFINE (scm_program_free_variables, "program-free-variables", 1, 0, 0,
(SCM program),
"")
-#define FUNC_NAME s_scm_program_free_vars
+#define FUNC_NAME s_scm_program_free_variables
{
SCM_VALIDATE_PROGRAM (1, program);
- return SCM_PROGRAM_FREE_VARS (program);
+ return SCM_PROGRAM_FREE_VARIABLES (program);
}
#undef FUNC_NAME