texlive[73009] Build/source/texk/web2c/tex.ch: safer to write to log

[commits+karl at tug.org]

Revision: 73009
          https://tug.org/svn/texlive?view=revision&revision=73009
Author:   karl
Date:     2024-12-01 18:52:26 +0100 (Sun, 01 Dec 2024)
Log Message:
-----------
safer to write to log file after recursive halting_on_error_p check

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/tex.ch

Modified: trunk/Build/source/texk/web2c/tex.ch
===================================================================
--- trunk/Build/source/texk/web2c/tex.ch	2024-12-01 17:34:47 UTC (rev 73008)
+++ trunk/Build/source/texk/web2c/tex.ch	2024-12-01 17:52:26 UTC (rev 73009)
@@ -877,6 +877,11 @@
 @y
 print_char("."); show_context;
 if (halt_on_error_p) then begin
+  {If |close_files_and_terminate| generates an error, we'll end up back
+   here; just give up in that case. If files are truncated, too bad.}
+  if (halting_on_error_p) then do_final_end; {quit immediately}
+  halting_on_error_p:=true;
+
   {This module is executed at the end of the |error| procedure in
    \.{tex.web}, but we'll never get there when |halt_on_error_p|, so the
    error help shouldn't get duplicated. It's potentially useful to see,
@@ -884,11 +889,6 @@
    \.{https://tug.org/pipermail/tex-live/2024-July/050741.html}.}
   @<Put help message on the transcript file@>;
 
-  {If |close_files_and_terminate| generates an error, we'll end up back
-   here; just give up in that case. If files are truncated, too bad.}
-  if (halting_on_error_p) then do_final_end; {quit immediately}
-  halting_on_error_p:=true;
-
   {Proceed with normal exit.}
   history:=fatal_error_stop;
   jump_out;