From 7112a34d56ff0611220b0e9f024ad0fffbe3cdad Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 10 Feb 2011 10:40:57 +0100
Subject: [PATCH] volatile locals in bootstrap evaluator

* libguile/eval.c (eval): For SCM_M_PROMPT, mark the locals needed after
  a longjmp as volatile.  Perhaps related to bug 32340.
---
 libguile/eval.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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,