summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
Diffstat (limited to 'libguile')
-rw-r--r--libguile/eval.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 785217825..6f2020ebc 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -408,7 +408,10 @@ eval (SCM x, SCM env)
case SCM_M_PROMPT:
{
- SCM vm, prompt, handler, res;
+ SCM vm, res;
+ /* We need the prompt and handler values after a longjmp case,
+ so make sure they are volatile. */
+ volatile SCM handler, prompt;
vm = scm_the_vm ();
prompt = scm_c_make_prompt (eval (CAR (mx), env), SCM_VM_DATA (vm)->fp,