diff options
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r-- | libguile/vm-i-system.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 8944c8415..9ba287d5a 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -840,12 +840,13 @@ VM_DEFINE_INSTRUCTION (55, tail_call, "tail-call", 1, -1, 1) VM_DEFINE_INSTRUCTION (56, subr_call, "subr-call", 1, -1, -1) { - SCM foreign, ret; + SCM pointer, ret; SCM (*subr)(); + nargs = FETCH (); - POP (foreign); + POP (pointer); - subr = SCM_FOREIGN_POINTER (foreign); + subr = SCM_POINTER_VALUE (pointer); VM_HANDLE_INTERRUPTS; SYNC_REGISTER (); |