summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/vm-engine.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 20a5ee05d..433f59146 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -170,7 +170,7 @@
#define CHECK_OVERFLOW(sp) \
do { \
- if (SCM_UNLIKELY ((sp) >= stack_limit)) \
+ if (SCM_UNLIKELY ((sp) >= vp->stack_limit)) \
vm_error_stack_overflow (vp); \
} while (0)
@@ -432,7 +432,6 @@ VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
/* Cached variables. */
struct scm_vm *vp = SCM_VM_DATA (vm);
- SCM *stack_limit = vp->stack_limit; /* stack limit address */
scm_i_thread *current_thread = SCM_I_CURRENT_THREAD;
scm_i_jmp_buf registers; /* used for prompts */