diff options
Diffstat (limited to 'libguile/throw.c')
-rw-r--r-- | libguile/throw.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/throw.c b/libguile/throw.c index 7f6564570..04bcba83e 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -512,8 +512,8 @@ pre_init_catch (SCM tag, SCM thunk, SCM handler, SCM pre_unwind_handler) vm = scm_the_vm (); prompt = scm_c_make_prompt (scm_fluid_ref (scm_sys_default_prompt_tag), SCM_VM_DATA (vm)->fp, SCM_VM_DATA (vm)->sp, - SCM_VM_DATA (vm)->ip, 1, -1); - scm_i_set_dynwinds (scm_cons (prompt, scm_i_dynwinds ())); + SCM_VM_DATA (vm)->ip, 1, -1, scm_i_dynwinds ()); + scm_i_set_dynwinds (scm_cons (prompt, SCM_PROMPT_DYNWINDS (prompt))); if (SCM_PROMPT_SETJMP (prompt)) { |