summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/programs.c22
-rw-r--r--libguile/programs.h6
-rw-r--r--libguile/vm-engine.c16
-rw-r--r--libguile/vm-engine.h18
-rw-r--r--libguile/vm-i-system.c24
-rw-r--r--module/language/glil/compile-assembly.scm6
-rw-r--r--module/language/tree-il/compile-glil.scm2
-rw-r--r--module/system/vm/program.scm2
-rw-r--r--test-suite/tests/tree-il.test2
9 files changed, 49 insertions, 49 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
diff --git a/libguile/programs.h b/libguile/programs.h
index 0564139f7..040e8ea2c 100644
--- a/libguile/programs.h
+++ b/libguile/programs.h
@@ -35,12 +35,12 @@ SCM_API scm_t_bits scm_tc16_program;
#define SCM_PROGRAM_P(x) (SCM_SMOB_PREDICATE (scm_tc16_program, x))
#define SCM_PROGRAM_OBJCODE(x) (SCM_SMOB_OBJECT (x))
#define SCM_PROGRAM_OBJTABLE(x) (SCM_SMOB_OBJECT_2 (x))
-#define SCM_PROGRAM_FREE_VARS(x) (SCM_SMOB_OBJECT_3 (x))
+#define SCM_PROGRAM_FREE_VARIABLES(x) (SCM_SMOB_OBJECT_3 (x))
#define SCM_PROGRAM_DATA(x) (SCM_OBJCODE_DATA (SCM_PROGRAM_OBJCODE (x)))
#define SCM_VALIDATE_PROGRAM(p,x) SCM_MAKE_VALIDATE (p, x, PROGRAM_P)
#define SCM_PROGRAM_IS_BOOT(x) (SCM_SMOB_FLAGS (x) & SCM_F_PROGRAM_IS_BOOT)
-SCM_API SCM scm_make_program (SCM objcode, SCM objtable, SCM free_vars);
+SCM_API SCM scm_make_program (SCM objcode, SCM objtable, SCM free_variables);
SCM_API SCM scm_program_p (SCM obj);
SCM_API SCM scm_program_base (SCM program);
@@ -53,7 +53,7 @@ SCM_API SCM scm_program_properties (SCM program);
SCM_API SCM scm_program_name (SCM program);
SCM_API SCM scm_program_objects (SCM program);
SCM_API SCM scm_program_module (SCM program);
-SCM_API SCM scm_program_free_vars (SCM program);
+SCM_API SCM scm_program_free_variables (SCM program);
SCM_API SCM scm_program_objcode (SCM program);
SCM_API SCM scm_c_program_source (SCM program, size_t ip);
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 8a0c92d24..98a6e491b 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -22,13 +22,13 @@
#define VM_USE_HOOKS 0 /* Various hooks */
#define VM_USE_CLOCK 0 /* Bogoclock */
#define VM_CHECK_OBJECT 1 /* Check object table */
-#define VM_CHECK_CLOSURE 1 /* Check closure vars */
+#define VM_CHECK_FREE_VARIABLES 1 /* Check free variable access */
#define VM_PUSH_DEBUG_FRAMES 0 /* Push frames onto the evaluator debug stack */
#elif (VM_ENGINE == SCM_VM_DEBUG_ENGINE)
#define VM_USE_HOOKS 1
#define VM_USE_CLOCK 1
#define VM_CHECK_OBJECT 1
-#define VM_CHECK_CLOSURE 1
+#define VM_CHECK_FREE_VARIABLES 1
#define VM_PUSH_DEBUG_FRAMES 1
#else
#error unknown debug engine VM_ENGINE
@@ -47,8 +47,8 @@ VM_NAME (struct scm_vm *vp, SCM program, SCM *argv, int nargs)
/* Cache variables */
struct scm_objcode *bp = NULL; /* program base pointer */
- SCM *closure = NULL; /* closure variables */
- size_t closure_count = 0; /* length of CLOSURE */
+ SCM *free_vars = NULL; /* free variables */
+ size_t free_vars_count = 0; /* length of FREE_VARS */
SCM *objects = NULL; /* constant objects */
size_t object_count = 0; /* length of OBJECTS */
SCM *stack_base = vp->stack_base; /* stack base address */
@@ -234,9 +234,9 @@ VM_NAME (struct scm_vm *vp, SCM program, SCM *argv, int nargs)
goto vm_error;
#endif
-#if VM_CHECK_CLOSURE
- vm_error_closure:
- err_msg = scm_from_locale_string ("VM: Invalid closure variable access");
+#if VM_CHECK_FREE_VARIABLES
+ vm_error_free_variable:
+ err_msg = scm_from_locale_string ("VM: Invalid free variable access");
finish_args = SCM_EOL;
goto vm_error;
#endif
@@ -254,7 +254,7 @@ VM_NAME (struct scm_vm *vp, SCM program, SCM *argv, int nargs)
#undef VM_USE_HOOKS
#undef VM_USE_CLOCK
#undef VM_CHECK_OBJECT
-#undef VM_CHECK_CLOSURE
+#undef VM_CHECK_FREE_VARIABLE
#undef VM_PUSH_DEBUG_FRAMES
/*
diff --git a/libguile/vm-engine.h b/libguile/vm-engine.h
index b860bf151..15ebb539e 100644
--- a/libguile/vm-engine.h
+++ b/libguile/vm-engine.h
@@ -152,16 +152,16 @@
} \
} \
{ \
- SCM c = SCM_PROGRAM_FREE_VARS (program); \
+ SCM c = SCM_PROGRAM_FREE_VARIABLES (program); \
if (SCM_I_IS_VECTOR (c)) \
{ \
- closure = SCM_I_VECTOR_WELTS (c); \
- closure_count = SCM_I_VECTOR_LENGTH (c); \
+ free_vars = SCM_I_VECTOR_WELTS (c); \
+ free_vars_count = SCM_I_VECTOR_LENGTH (c); \
} \
else \
{ \
- closure = NULL; \
- closure_count = 0; \
+ free_vars = NULL; \
+ free_vars_count = 0; \
} \
} \
}
@@ -189,11 +189,11 @@
#define CHECK_OBJECT(_num)
#endif
-#if VM_CHECK_CLOSURE
-#define CHECK_CLOSURE(_num) \
- do { if (SCM_UNLIKELY ((_num) >= closure_count)) goto vm_error_closure; } while (0)
+#if VM_CHECK_FREE_VARIABLES
+#define CHECK_FREE_VARIABLE(_num) \
+ do { if (SCM_UNLIKELY ((_num) >= free_vars_count)) goto vm_error_free_variable; } while (0)
#else
-#define CHECK_CLOSURE(_num)
+#define CHECK_FREE_VARIABLE(_num)
#endif
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index a7e05c83b..e12217ecc 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -248,7 +248,7 @@ VM_DEFINE_INSTRUCTION (22, list_break, "list-break", 0, 0, 0)
#define VARIABLE_SET(v,o) SCM_VARIABLE_SET (v, o)
#define VARIABLE_BOUNDP(v) (VARIABLE_REF (v) != SCM_UNDEFINED)
-#define CLOSURE_REF(i) closure[i]
+#define FREE_VARIABLE_REF(i) free_vars[i]
/* ref */
@@ -1138,41 +1138,41 @@ VM_DEFINE_INSTRUCTION (59, local_boxed_set, "local-boxed-set", 1, 1, 0)
NEXT;
}
-VM_DEFINE_INSTRUCTION (60, closure_ref, "closure-ref", 1, 0, 1)
+VM_DEFINE_INSTRUCTION (60, free_ref, "free-ref", 1, 0, 1)
{
scm_t_uint8 idx = FETCH ();
- CHECK_CLOSURE (idx);
- PUSH (CLOSURE_REF (idx));
+ CHECK_FREE_VARIABLE (idx);
+ PUSH (FREE_VARIABLE_REF (idx));
NEXT;
}
-/* no closure-set -- if a var is assigned, it should be in a box */
+/* no free-set -- if a var is assigned, it should be in a box */
-VM_DEFINE_INSTRUCTION (61, closure_boxed_ref, "closure-boxed-ref", 1, 0, 1)
+VM_DEFINE_INSTRUCTION (61, free_boxed_ref, "free-boxed-ref", 1, 0, 1)
{
SCM v;
scm_t_uint8 idx = FETCH ();
- CHECK_CLOSURE (idx);
- v = CLOSURE_REF (idx);
+ CHECK_FREE_VARIABLE (idx);
+ v = FREE_VARIABLE_REF (idx);
ASSERT_BOUND_VARIABLE (v);
PUSH (VARIABLE_REF (v));
NEXT;
}
-VM_DEFINE_INSTRUCTION (62, closure_boxed_set, "closure-boxed-set", 1, 1, 0)
+VM_DEFINE_INSTRUCTION (62, free_boxed_set, "free-boxed-set", 1, 1, 0)
{
SCM v, val;
scm_t_uint8 idx = FETCH ();
POP (val);
- CHECK_CLOSURE (idx);
- v = CLOSURE_REF (idx);
+ CHECK_FREE_VARIABLE (idx);
+ v = FREE_VARIABLE_REF (idx);
ASSERT_BOUND_VARIABLE (v);
VARIABLE_SET (v, val);
NEXT;
}
-VM_DEFINE_INSTRUCTION (63, make_closure2, "make-closure2", 0, 2, 1)
+VM_DEFINE_INSTRUCTION (63, make_closure, "make-closure", 0, 2, 1)
{
SCM vect;
POP (vect);
diff --git a/module/language/glil/compile-assembly.scm b/module/language/glil/compile-assembly.scm
index b2ea8dcab..cecfd86b4 100644
--- a/module/language/glil/compile-assembly.scm
+++ b/module/language/glil/compile-assembly.scm
@@ -178,7 +178,7 @@
(emit-code (align-program prog addr)))
(else
(let ((table (dump-object (make-object-table objects) addr))
- (closure (if (> closure-level 0) '((make-closure)) '())))
+ (closure '()))
(cond
(object-alist
;; if we are being compiled from something with an object
@@ -267,8 +267,8 @@
((empty-box) 'empty-box)
(else (error "what" op)))
(case op
- ((ref) (if boxed? 'closure-boxed-ref 'closure-ref))
- ((set) (if boxed? 'closure-boxed-set (error "what." glil)))
+ ((ref) (if boxed? 'free-boxed-ref 'free-ref))
+ ((set) (if boxed? 'free-boxed-set (error "what." glil)))
(else (error "what" op))))
,index))))
diff --git a/module/language/tree-il/compile-glil.scm b/module/language/tree-il/compile-glil.scm
index 29f4683c1..f8410a51d 100644
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -503,7 +503,7 @@
(else (error "what" x loc))))
free-locs)
(emit-code #f (make-glil-call 'vector (length free-locs)))
- (emit-code #f (make-glil-call 'make-closure2 2))))
+ (emit-code #f (make-glil-call 'make-closure 2))))
(if (eq? context 'tail)
(emit-code #f (make-glil-call 'return 1)))))))
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 99021ed05..5fd81b4a6 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -33,7 +33,7 @@
program-arity program-meta
program-objcode program? program-objects
- program-module program-base program-free-vars))
+ program-module program-base program-free-variables))
(load-extension "libguile" "scm_init_programs")
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test
index 21efa8e31..e4979c15d 100644
--- a/test-suite/tests/tree-il.test
+++ b/test-suite/tests/tree-il.test
@@ -376,7 +376,7 @@
(lexical #f #f ref 0) (call return 1))
(lexical #t #f ref 0)
(call vector 1)
- (call make-closure2 2)
+ (call make-closure 2)
(call return 1))
(call return 1))))