Feval: On Carbon/MacOSX call mac_check_for_quit_char at each stack frame.

This may change/move as it could be quite time consuming

diff --git a/src/eval.c b/src/eval.c
index 9cac429..7d8434a 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -2160,6 +2160,10 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
   if (backtrace.debug_on_exit)
     val = call_debugger (Fcons (Qexit, Fcons (val, Qnil)));
   backtrace_list = backtrace.next;
+
+#ifdef HAVE_CARBON
+  mac_check_for_quit_char();
+#endif  
   return val;
 }
 \f