[latex3-commits] [git/LaTeX3-latex3-latex3] master: Omit stream 18 from the list of available streams in IniTeX mode (cd4ef9a)

[Bruno Le Floch]

Repository : https://github.com/latex3/latex3
On branch  : master
Link       : https://github.com/latex3/latex3/commit/cd4ef9ab7488e2e10c23b154fe8401f07dc1b741

>---------------------------------------------------------------

commit cd4ef9ab7488e2e10c23b154fe8401f07dc1b741
Author: Bruno Le Floch <bruno at le-floch.fr>
Date:   Sat Apr 7 00:52:14 2018 -0400

    Omit stream 18 from the list of available streams in IniTeX mode


>---------------------------------------------------------------

cd4ef9ab7488e2e10c23b154fe8401f07dc1b741
 l3kernel/l3file.dtx |   16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/l3kernel/l3file.dtx b/l3kernel/l3file.dtx
index 68b479d..003188c 100644
--- a/l3kernel/l3file.dtx
+++ b/l3kernel/l3file.dtx
@@ -1031,18 +1031,20 @@
 % \end{variable}
 %
 % \begin{variable}{\g_@@_streams_seq}
-%   A list of the currently-available output streams to be used as a stack.
+%   A list of the currently-available output streams to be used as a
+%   stack.  The stream $18$ is special, as \tn{write}18 is used to
+%   denote commands to be sent to the OS\@.
 %    \begin{macrocode}
 \seq_new:N \g_@@_streams_seq
 %<*initex>
-\use:x
+\exp_args:Nnx \use:n
+  { \seq_gset_split:Nnn \g_@@_streams_seq { } }
   {
-    \exp_not:n { \seq_gset_split:Nnn \g_@@_streams_seq { } }
-      {
-        \int_step_function:nnnN { 0 } { 1 } { \c_term_iow }
-          \prg_do_nothing:
-      }
+    \int_step_function:nnnN { 0 } { 1 } { \c_term_iow }
+      \prg_do_nothing:
   }
+\int_compare:nNnF \c_term_iow < { 18 }
+  { \seq_gremove_all:Nn \g_@@_streams_seq { 18 } }
 %</initex>
 %    \end{macrocode}
 % \end{variable}