abort always dispatches to VM bytecode, to detect same-invocation aborts

[bpt/guile.git] / libguile / eval.c

diff --git a/libguile/eval.c b/libguile/eval.c
index 1b466de..c82e543 100644 (file)
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -429,7 +429,7 @@ eval (SCM x, SCM env)
       {
         SCM prompt, handler, res;
 
-        prompt = scm_c_make_prompt (scm_the_vm (), eval (CAR (mx), env), 0);
+        prompt = scm_c_make_prompt (scm_the_vm (), eval (CAR (mx), env), 0, -1);
         handler = eval (CDDR (mx), env);
         scm_i_set_dynwinds (scm_cons (prompt, scm_i_dynwinds ()));