summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-10-23 10:05:28 +0200
committerAndy Wingo <wingo@pobox.com>2013-10-26 14:38:11 +0200
commit2a4ee2ac8c0d04d5d83bffd3b31cd3d8c4ae3028 (patch)
tree5ca988a79f53a2b41afd85321083311395ab9957
parente23f9e4423bbbe8521d13e1c9a223612a5e86762 (diff)
downloadguile-2a4ee2ac8c0d04d5d83bffd3b31cd3d8c4ae3028.tar.gz
RTL VM: Fix fluid-ref local addressing.
* libguile/vm-engine.c (push-fluid): Fix variable addressing.
-rw-r--r--libguile/vm-engine.c2
1 files changed, 1 insertions, 1 deletions
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 (&current_thread->dynstack,
- fp[fluid], fp[value],
+ LOCAL_REF (fluid), LOCAL_REF (value),
current_thread->dynamic_state);
NEXT (1);
}