texlive[69248] Build/source/texk/web2c/mplibdir/mpxout.w:

[commits+lscarso at tug.org]

Revision: 69248
          https://tug.org/svn/texlive?view=revision&revision=69248
Author:   lscarso
Date:     2023-12-31 13:06:01 +0100 (Sun, 31 Dec 2023)
Log Message:
-----------
`verbatim_written = 1;`  is done at least after the first time the text is write down to the file.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/mplibdir/mpxout.w

Modified: trunk/Build/source/texk/web2c/mplibdir/mpxout.w
===================================================================
--- trunk/Build/source/texk/web2c/mplibdir/mpxout.w	2023-12-31 00:48:45 UTC (rev 69247)
+++ trunk/Build/source/texk/web2c/mplibdir/mpxout.w	2023-12-31 12:06:01 UTC (rev 69248)
@@ -656,11 +656,11 @@
          mpx_copy_mpto(mpx, outfile, FIRST_VERBATIM_TEX);
       else
          mpx_copy_mpto(mpx, outfile, VERBATIM_TEX);
+      verbatim_written = 1;
       fprintf(outfile,"%s", mpx_postverb[mode]);
     } else {
       mpx_error(mpx,"unmatched etex");
     }
-    verbatim_written = 1;
   }
 }