From 754efc2306682d882595c1b72022a877b0f415f8 Mon Sep 17 00:00:00 2001
From: Helmut Eller <eller.helmut@gmail.com>
Date: Sat, 4 Jan 2025 14:33:57 +0100
Subject: [PATCH] Restore maybe_quit before functions are called.

* src/bytecode.c (exec_byte_code): Call maybe_quite before pushing
a function.
---
 src/bytecode.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/bytecode.c b/src/bytecode.c
index 53c200e2c18..886be3e67f2 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -784,6 +784,7 @@ #define DEFINE(name, value) [name] = &&insn_ ## name,
 		  }
 	      }
 #endif
+	    maybe_quit ();
 
 	    if (++lisp_eval_depth > max_lisp_eval_depth)
 	      {
@@ -828,7 +829,8 @@ #define DEFINE(name, value) [name] = &&insn_ ## name,
 	    else
 	      val = funcall_general (original_fun, call_nargs, call_args);
 
-	    maybe_quit ();
+	    maybe_quit ();	/* needed for profiler */
+
 	    lisp_eval_depth--;
 	    if (backtrace_debug_on_exit (specpdl_ptr - 1))
 	      val = call_debugger (list2 (Qexit, val));
-- 
2.39.5