diff options
Diffstat (limited to 'libguile/vm-engine.h')
-rw-r--r-- | libguile/vm-engine.h | 18 |
1 files changed, 9 insertions, 9 deletions
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 |