(Fgarbage_collect): Update call to truncate_undo_list.

[gnu-emacs] / src / data.c

diff --git a/src/data.c b/src/data.c
index afbca80181dc931e5ccaad9495bd1b1795380161..811619b58b313b69e61b23ab8ca4ea48012c6ad1 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -3366,6 +3366,7 @@ arith_error (signo)
   sigsetmask (SIGEMPTYMASK);
 #endif /* not BSD4_1 */
 
+  SIGNAL_THREAD_CHECK (signo);
   Fsignal (Qarith_error, Qnil);
 }