diff options
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index e449b4372..22bd39c0e 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -89,17 +89,17 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs) /* Initial frame */ CACHE_REGISTER (); - PUSH ((SCM)fp); /* dynamic link */ - PUSH (0); /* mvra */ - PUSH ((SCM)ip); /* ra */ + PUSH (SCM_PACK (fp)); /* dynamic link */ + PUSH (SCM_PACK (0)); /* mvra */ + PUSH (SCM_PACK (ip)); /* ra */ CACHE_PROGRAM (); PUSH (program); fp = sp + 1; ip = SCM_C_OBJCODE_BASE (bp); /* MV-call frame, function & arguments */ - PUSH (0); /* dynamic link */ - PUSH (0); /* mvra */ - PUSH (0); /* ra */ + PUSH (SCM_PACK (0)); /* dynamic link */ + PUSH (SCM_PACK (0)); /* mvra */ + PUSH (SCM_PACK (0)); /* ra */ PUSH (prog); if (SCM_UNLIKELY (sp + nargs >= stack_limit)) goto vm_error_too_many_args; |