diff options
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r-- | libguile/stacks.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c index 610a36e24..13d347a95 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -98,14 +98,14 @@ stack_depth (SCM frame) static SCM* find_prompt (SCM key) { - scm_t_prompt_registers *regs; + SCM *fp; if (!scm_dynstack_find_prompt (&SCM_I_CURRENT_THREAD->dynstack, key, - ®s, NULL)) + NULL, &fp, NULL, NULL, NULL)) scm_misc_error ("make-stack", "Prompt tag not found while narrowing stack", scm_list_1 (key)); - return regs->fp; + return fp; } static void |