diff options
author | Andy Wingo <wingo@pobox.com> | 2018-06-24 10:07:52 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-06-25 17:50:27 +0200 |
commit | 6ceb33e7675e1e4f6aa4f0304bf363d1da5eb085 (patch) | |
tree | 4cd7c5e44b84dfaa235caa32397ba0bf6daf9819 /libguile/vm-engine.c | |
parent | 150f3474df0b8816b94a16d595c7a7433801027c (diff) | |
download | guile-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.c | 2 |
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 \ |