summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-06-24 10:07:52 +0200
committerAndy Wingo <wingo@pobox.com>2018-06-25 17:50:27 +0200
commit6ceb33e7675e1e4f6aa4f0304bf363d1da5eb085 (patch)
tree4cd7c5e44b84dfaa235caa32397ba0bf6daf9819 /libguile/vm-engine.c
parent150f3474df0b8816b94a16d595c7a7433801027c (diff)
downloadguile-6ceb33e7675e1e4f6aa4f0304bf363d1da5eb085.tar.gz
expand_stack intrinsic takes thread
* libguile/intrinsics.h (scm_t_thread_sp_intrinsic): Change to take thread instead of vp. (SCM_FOR_ALL_VM_INTRINSICS): Change expand_stack to expect thread, not vp. * libguile/vm-engine.c (ALLOC_FRAME): Call expand_stack with thread. * libguile/vm.c (thread_expand_stack, scm_bootstrap_vm): Adapt.
Diffstat (limited to 'libguile/vm-engine.c')
-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 5e1114f02..4874c0f34 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -182,7 +182,7 @@
{ \
struct scm_vm_intrinsics *i = (void*)intrinsics; \
SYNC_IP (); \
- i->expand_stack (VP, sp); \
+ i->expand_stack (thread, sp); \
CACHE_SP (); \
} \
else \