From 2a4ee2ac8c0d04d5d83bffd3b31cd3d8c4ae3028 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 23 Oct 2013 10:05:28 +0200 Subject: [PATCH] RTL VM: Fix fluid-ref local addressing. * libguile/vm-engine.c (push-fluid): Fix variable addressing. --- libguile/vm-engine.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index d735914da..2e362c996 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -2402,7 +2402,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_) SCM_UNPACK_RTL_12_12 (op, fluid, value); scm_dynstack_push_fluid (¤t_thread->dynstack, - fp[fluid], fp[value], + LOCAL_REF (fluid), LOCAL_REF (value), current_thread->dynamic_state); NEXT (1); }