diff options
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r-- | libguile/vm-i-system.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index a105c52d9..18e9a781b 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -631,6 +631,10 @@ VM_DEFINE_INSTRUCTION (40, goto_args, "goto/args", 1, -1, 1) CONS (external, SCM_UNDEFINED, external); SCM_FRAME_DATA_ADDRESS (fp)[0] = external; + /* Init locals to valid SCM values */ + for (i = 0; i < bp->nlocs; i++) + LOCAL_SET (i + bp->nargs, SCM_UNDEFINED); + /* Call itself */ ip = bp->base; APPLY_HOOK (); |