diff options
author | Andy Wingo <wingo@pobox.com> | 2013-10-23 10:05:28 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-10-26 14:38:11 +0200 |
commit | 2a4ee2ac8c0d04d5d83bffd3b31cd3d8c4ae3028 (patch) | |
tree | 5ca988a79f53a2b41afd85321083311395ab9957 | |
parent | e23f9e4423bbbe8521d13e1c9a223612a5e86762 (diff) | |
download | guile-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.c | 2 |
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 (¤t_thread->dynstack, - fp[fluid], fp[value], + LOCAL_REF (fluid), LOCAL_REF (value), current_thread->dynamic_state); NEXT (1); } |